4) Program n1; var a,b,c: integer; begin randomize; writeln('программа тренажер по таблице умножения для начальных классов'); writeln('--------------------'); while true do begin a:=random(10); b:=random(10); writeln('сколько будет ',a,'*',b,' ? '); readln(c); if c=a*b then writeln('Молодец') else writeln('Работай дальше'); end; end.
5) Program n2; var a: integer; begin readln(a); case a of 1: write('Понедельник'); 2: write('Вторник'); 3: write('Среда'); 4: write('Четверг'); 5: write('Пятница'); 6: write('Суббота'); 7: write('Воскресение'); end; end.
Answers & Comments
Verified answer
4)Program n1;
var a,b,c: integer;
begin
randomize;
writeln('программа тренажер по таблице умножения для начальных классов');
writeln('--------------------');
while true do
begin
a:=random(10);
b:=random(10);
writeln('сколько будет ',a,'*',b,' ? ');
readln(c);
if c=a*b then writeln('Молодец') else writeln('Работай дальше');
end;
end.
5)
Program n2;
var a: integer;
begin
readln(a);
case a of
1: write('Понедельник');
2: write('Вторник');
3: write('Среда');
4: write('Четверг');
5: write('Пятница');
6: write('Суббота');
7: write('Воскресение');
end;
end.