Bài 6. Câu lệnh điều kiện

Nguyễn Thị Tươi
Xem chi tiết
Nguyễn Lê Phước Thịnh
4 tháng 1 2023 lúc 14:56

uses crt;

var a,b:integer;

begin

clrscr;

readln(a,b);

if (a>0) and (b>0) then writeln(a*b)

else writeln('Nhap lai');

readln;

end.

Bình luận (0)
phạm ngọc hân
Xem chi tiết
Cat Junny
Xem chi tiết
minh đạt
Xem chi tiết
Hải Anh Tạ
Xem chi tiết
Kiều Vũ Linh
23 tháng 12 2022 lúc 15:04

Bước 1: Nhập số n (n là số tự nhiên)

Bước 2: Xét số dư khi chia n cho 2

Bước 3: Nếu số dư là 1 thì ghi ra màn hình n là số lẻ, ngược lại thì ghi ra màn hình n không là số lẻ

Bước 4: Kết thúc

Bình luận (0)
Ngu nhưng Siêng
Xem chi tiết
Lê Văn trưởng
Xem chi tiết
Nguyễn Lê Phước Thịnh
22 tháng 12 2022 lúc 10:13

uses crt;

var a,b,c:integer;

begin

clrscr;

readln(a,b,c);

if (a=b) and (b=c) then write('YES')

else write('NO');

readln;

end.

Bình luận (0)
Minh Anh
Xem chi tiết
Nguyễn Lê Phước Thịnh
21 tháng 12 2022 lúc 9:08

Chọn C

Bình luận (0)
nhật nguyên
Xem chi tiết
HAT9
18 tháng 12 2022 lúc 22:44

a. X=14
b. ủa đề lag z :) cho X vs Y rồi bảo tổng A, B
Var Z:=A+B;
c. X=35
d. c=9
e. 20+5= 25

Bình luận (0)