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.
a) xác định
input: x
output: x là chẵn hay lẻ
b)
B1: nhập x
B2: Nếu x chia hết cho 2 thì x là số chẵn, không chia hết thì là số chẵn
B3: trả lời số x là số chẵn hay là số lẻ
B4: kết thúc thuật toán.
c)
var
x:integer;
begin
write("nhập x=");
readln(x);
if x mod 2=0 then writeln(x," là số chẵn")
else
writeln(x," là số lẻ");
readln;
end.
program XinChao;
uses crt;
(* Day la chuong trinh chinh *)
Begin
writeln('Xin chao cac ban!');
readkey;
End.
Program (Bạn tự đặt lấy nha)
Var a, b, S: Integer
Begin
Readln(a, b);
S:=a+b;
Writeln(S);
End.
Chúc bạn học giỏi
program chia;
uses crt;
var n,i:integer;
s:real;
begin
clrscr;
s:=0;
for i:=2 to 50 do s:=s+1/i;
writeln('Tong la ',s:1:2);
readln;
end.
program chanle;
uses crt;
var a:integer;
begin
write('nhap so a: ');readln(a)
if a mod 2=0 then writeln('a la so chan')
else writeln('a la so le');
realdn;
end.
readln(a);
ghi thiếu cái ;
:))
progam KT_a_khi_chiacho_2;
uses crt;
var a:integer;
begin
Clrscr;
writeln(' Nhap so a ');
readln(a);
Ip (a mod 2 = 0 ) then writeln (a,' Chia het cho 2');
else Ip (a mod 2 <> 0 ) then writeln (a,' ko chia het cho 2');
readln;
end.
Cái này là mk tự vt ko chép mạng nên sai thì Sorry nhang.Trên mạng cx ko có đâu
Bn nên thử ở trên CT pascal trước r ghi vào cho chắc nhé!!!
à bn thay writeln (a,'chia het cho 2 '); thành writeln (a,'la so chan '); và writeln (a,'ko chia het cho 2 ') thành writeln (a,'la so le ');
Bị nhầm chút
luuthianhhuyen nếu có else thì sau then ko có ; nhé
chữ "if" bạn cũng ghi sai rồi :)