Những câu hỏi liên quan
Khánh Vy
Xem chi tiết
Nguyễn Lê Phước Thịnh
6 tháng 1 2022 lúc 12:35

Bài 1: 

Ta nhớ thực hiện lệnh

<biến đếm>:=<giá trị>;

Bài 2: 

d:=d+2;

Bình luận (0)
Hà Phan Thanh
Xem chi tiết
Mai Bảo Cường
Xem chi tiết
Nguyễn Lê Phước Thịnh
6 tháng 10 2021 lúc 15:19

uses crt;

var x,y:integer;

begin

clrscr;

readln(x);

y:=sqr(x);

writeln(y);

readln;

end.

Bình luận (0)
Nguyễn Thuỳ Linh
Xem chi tiết
Nguyễn Lê Phước Thịnh
4 tháng 5 2021 lúc 13:57

uses crt;

var n,x:integer;

begin

clrscr;

write('Nhap n='); readln(n);

writeln('n=',n);

x:=n;

if x mod 2=0 then writeln(x,' la so chan')

else writeln(x,' la so le');

readln;

end.

Bình luận (0)
An Đỗ
Xem chi tiết
Đỗ thuỳ an
Xem chi tiết
Trâm Vương
Xem chi tiết
Nguyễn Lê Phước Thịnh
22 tháng 2 2022 lúc 21:36

uses crt;

var k,x,y:integer;

begin

clrscr;

readln(k);

x:=k mod 5;

y:=k div 5;

writeln(k,'/5=',x,' du ',y);

readln;

end.

Bình luận (1)
Anthea2148
Xem chi tiết
Nguyễn Lê Phước Thịnh
2 tháng 11 2021 lúc 23:29

Câu 3: 

uses crt;

var a,b:int64;

begin

clrscr;

readln(a,b);

writeln(a+b);

readln;

end.

Bình luận (0)
Đức Hải
Xem chi tiết