Câu 1:Viết chương trình nhập vào 1 sống nguyên X không lớn hơn 10.Kiểm tra việc nhập vào và thông bao lỗi cho người sử dụng,nếu đúng thì kiểm tra việc nhập vào và thông bao lỗi cho người sử dụng, nếu đúng thì kiểm tra X là sống chẵn hay lẻ
Câu 2: Viết Ct thực hiện công việc sau
a, Nhập vai bàn phím sống nguyên Dương N và mảng A gồm N sống nguyên nguyên
b, Hiển thị mảng A ra màn hình
c, Hãy tính tổng các phần tử chẵn có hai chữa số thì in ra số O
Giúp mình với
Câu 1:Viết chương trình nhập vào 1 sống nguyên X không lớn hơn 10.Kiểm tra việc nhập vào và thông bao lỗi cho người sử dụng,nếu đúng thì kiểm tra việc
By Alaia
ues crt;
var x: byte;
begin
clrscr;
write (‘nhap x: ‘); readln (x);
if x>10 then writeln (‘x phai be hon 10’);
readln;
end.
câu 2:
uses crt;
var a: array[1..100] of integer;
i,n,s: integer;
begin
clrscr;
write (‘nhap n: ‘); readln (n);
for i:=1 to n do
begin
write (‘nhap phan tu thu ‘,i,’: ‘); readln (a[i]);
if a[i] mod 2=0 then s:=s+a[i];
end;
writeln (‘mang A la: ‘);
for i:=1 to n do write (a[i]:3);
writeln;
if (s>=10) and (s<100) then writeln (‘0’)
else writeln (‘tong cac phan tu chan la: ‘,s);
readln;
end.