Question

1. Viết chương trình nhập vào là 1 số a.Nếu a không phải là số dương thì nhập lại, đến khi a là số dương thì dừng

2. Viết chương trình nhập vào là 1 số a. Nếu a không phải là số chẵn thì nhập lại, đến khi a là số chẵn thì dừng

Answer 1

1:

uses crt;

var a:integer;

begin

clrscr;

repeat

write('Nhap a='); readln(a);

if a<=0 then writeln('Nhap lai');

until a>0;

readln;

end.

2:

uses crt;

var a:integer;

begin

clrscr;

repeat

write('Nhap a='); readln(a);

if a mod 2<>0 then writeln('Nhap lai');

until a mod 2=0;

readln;

end.