Chuyển thành chương trình Pascal và viết thuật toán
BÀI 1: Khai báo a;
Bắt đầu
nhập (a)
Nếu a mod 2 = 0 thì
xuất (a’, la so chan’)
Ngược lại;
xuất (a’, la so le’)
Kết thúc.
BÀI 2: Khai báo a, b;
Bắt đầu
nhập (a, b);
Nếu (a >b) thì
xuất ( a’, la so lon hon’)
Nếu (a
Chuyển thành chương trình Pascal và viết thuật toán BÀI 1: Khai báo a; Bắt đầu nhập (a) Nếu a mod 2 = 0 thì xuất (a’,
By Mary
Mình làm từ phần khai báo luôn nhé!
Bài 1:
var
a:integer;
begin
write(‘Moi ban nhap so a: ‘); readln(a);
if a mod 2=0 then writeln(a,’ la so chan’) else writeln(a,’ la so le’);
readln;
end.
Bài 2:
var
a,b:integer;
begin
write(‘Nhap a: ‘); readln(a);
write(‘Nhap b: ‘); readln(b);
if a>b then writeln(a,’ la so lon hon’);
if a<b then writeln(b,’ la so lon hon’);
readln;
end.
Chúc bạn học tốt
program a;
uses crt;
var a:real;
begin
write(‘nhap bien a’);
readln(a);
amod2=0;
write(‘a=’,amod2);
end.