-
a] Tính và in ra tổng các số lẻ trong dãy vừa nhập.
b] Đếm xem trong dãy vừa nhập có bao nhiêu số lớn hơn 5.
09/05/2022 | 0 Trả lời
-
giúp mình bài này với ạ,mình sắp thi rồi. Cảm ơn nhiều ạ!
10/05/2022 | 0 Trả lời
-
Cho đoạn chương trình sau:
S:=0; n:=0;
While S 0'];[/COLOR] [COLOR=#000000] Writeln['———————————————————————-'];[/COLOR] [COLOR=#000000] Write['nhap a='];readln[a];[/COLOR] [COLOR=#000000] Write['nhap b='];readln[b];[/COLOR] [COLOR=#000000] If a0 then[/COLOR] [COLOR=#000000] If a>0 then[/COLOR] [COLOR=#000000] Writeln['Bat phuong trinh co nghiem: x>=',-b/a:4:2][/COLOR] [COLOR=#000000] Else[/COLOR] [COLOR=#000000] Writeln['Bat phuong trinh co nghiem: x 0'];[/COLOR] [COLOR=#000000] Writeln['———————————————————————-'];[/COLOR] [COLOR=#000000] Write['nhap a='];readln[a];[/COLOR] [COLOR=#000000] Write['nhap b='];readln[b];[/COLOR] [COLOR=#000000] If a0 then[/COLOR] [COLOR=#000000] If a>0 then[/COLOR] [COLOR=#000000] Writeln['Bat phuong trinh co nghiem: x>=',-b/a:4:2][/COLOR] [COLOR=#000000] Else[/COLOR] [COLOR=#000000] Writeln['Bat phuong trinh co nghiem: x 0'];[/COLOR]
mà
[COLOR=#000000] Writeln['Bat phuong trinh co nghiem: x>=',-b/a:4:2][/COLOR]
???Viết chương trình giải bất phương trình bậc 1 [ax + b > 0]
Program BAT_PHUONG_TRINH_BACI; Uses crt; Var a,b: real; Begin Clrscr; Writeln['GIAI BAT PHUONG TRINH BAC NHAT: AX + B > 0']; Writeln['———————————————————————-']; Write['nhap a='];readln[a]; Write['nhap b='];readln[b]; If a0 then If a>0 then Writeln['Bat phuong trinh co nghiem: x>=',-b/a:4:2] Else Writeln['Bat phuong trinh co nghiem: x