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 { "@context": "https://schema.org", "@type": "QAPage", "mainEntity": { "@type": "Question", "name": " 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',", "text": "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
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.