Viết chương trình cho phép nhập vào dãy số xuất ra kết quả cho biết có bao nhiêu số chia hết cho 3
 1 trả lời Khi thực hiện câu lệnh (Tin học - Lớp 8) 2 trả lời Khi xóa bảng dữ liệu thì biểu đồ có bị xóa ko? (Tin học - Lớp 7) 2 trả lời Nhận định Sai về hàm (Tin học - Lớp 11) 1 trả lời program hotrotinhoc; var n,i.d: integer; t: longint; begin readln(n); t:=0; d:=0; for i:=1 to n do if i mod 3=0 then t:=t+i; writeln('Tong cac so chia het cho 3 tu 1 den n la:',t); for i:=1 to n do if i mod 3=0 then inc(d); write('Co ',d,' so chia het cho 3 tu 1 den N'); readln end. program Hello;var n,x,d,i:longint;begin readln(n); for i:= 1 to n do begin read(x); if x mod 3 = 0 then inc(d); end; writeln('Co ', d, ' so chia het cho 3.');end. ======================================== program Hello;var n,j,d,i:longint; a: array[1..100000] of longint;begin readln(n); for i:= 1 to n do read(a[i]); for i:= 1 to n do for j:= 1 to n do if a[i] < a[j] then begin d:=a[i]; a[i]:=a[j]; a[j]:=d; end; for i:= 1 to n do write(a[i], ' ');end. ==================================== program Hello;var n,i:longint; ten,lop: array[1..100000] of string;begin readln(n); for i:= 1 to n do begin writeln(i, '. '); readln(ten[i]); readln(lop[i]); end; for i:= 1 to n do writeln(i, '. Ten ', ten[i], ' lop ', lop[i]);end.
Viết chương trình nhập vào số nguyên dương a. Hãy cho biết số vừa nhập có chia hết cho 3 và 5 không? Các câu hỏi tương tự
Câu 1:Viết chương trình nhập vào 1 dãy N số nguyên. Đưa ra màn hình tổng các số dương chia hết cho 3 Câu 2:Viết chương trình nhập vào 1 dãy N số nguyên. Đưa ra màn hình tổng các số dương chia hết cho 5 Câu 3:Viết chương trình nhập vào 1 dãy N số nguyên. Đưa ra màn hình tổng các số dương chẵn chia hết cho 3 Câu 4:Viết chương trình nhập vào 1 dãy N số nguyên. Đưa ra màn hình tổng các số dương lẻ chia hết cho Các câu hỏi tương tự |
