K
Khách
Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
Dưới đây là một vài câu hỏi có thể liên quan tới câu hỏi mà bạn gửi lên. Có thể trong đó có câu trả lời mà bạn cần!
A
18 tháng 12 2017
1)Program songuyenduong;
Uses crt;
Var y: integer;
Begin
clrscr;
writeln('nhap so y'); readln(y);
if (y mode 5)=0 then writeln(y,'chia het cho 5')else write(y,' khong chia het cho 5');
readln;
End.
20 tháng 6 2020
uses crt;
var i,s:integer;
begin
clrscr;
s:=0;
for i:=1 to 50 do
s:=s+i;
writeln('Tong cua 50 so tu nhien la: ',s);
readln;
end.
26 tháng 1 2021
Màn hình sẽ in ra giá trị: 3 7
Giải thích:
Câu lệnh if i mod 3=0 then j:=j+1 có nghĩa là j bằng một cộng với số các số chia hết cho 3.
k:=k+j có nghĩa là k bằng bốn cộng với giá trị của j đã tìm.
x=10
y=35