Cho dãy số i=1,2,3...100 em hãy viết câu lệnh For-do hiển thị các số lẻ ra màn hình
Bài 7: Các thủ tục chuẩn vào ra đơn giản
uses crt;
var i:integer;
begin
clrscr;
for i:=1 to 100 do
if i mod 2=1 then write(i:4);
readln;
end.
Đúng 0
Bình luận (0)
uses crt;
var i:integer;
begin
clrscr;
for i:=0 to 99 do
begin
write(i:4);
if (i%10=9) then writeln;
end;
readln;
end.
Đúng 0
Bình luận (0)
Cho mảng a gồm n phần tử. Viết chương trình đưa ra số lần k xuất hiện trong mảng k được nhập vào bàn phím
Nhập Vào 2 Số Nguyên a và b. In Ra Kết Quả
"Giúp mình vs mai kiểm tra rồi ạ"
var
a,b:integer;
begin
write(' nhap a va b: '); readln(a,b);
writeln(a);
write(b);
readln;
end.
Đúng 0
Bình luận (0)