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.
- lý thuyết
- trắc nghiệm
- hỏi đáp
- bài tập sgk
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ự
- lý thuyết
- trắc nghiệm
- hỏi đáp
- bài tập sgk
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ự