Напишите, пожалуйста, программу в паскале цикл for
Ответы
Ответ:
1.
program k1k2;
var i,a,k1,k2:integer;
begin
k1:=0;
k2:=0;
randomize;
for i:=1 to 10 do
begin
write ('Введите ',i,' число ');
readln (a);
if a mod 2 = 0 then k2:=k2+1 else k1:=k1+1
end;
writeln;
writeln ('Было введено ',k2,' чётных и ',k1,' нечётных чисел')
end.
2.
program TabUmnkpkn;
var x,y,i,z,kp,kn:integer;
begin
kp:=0;
kn:=0;
randomize;
for i:=1 to 10 do
begin
x:=random(8)+2;
y:=random(8)+2;
writeln ('Сколько будет ',x,' * ',y);
read (z);
if z=x*y then
begin
kp:=kp+1;
writeln ('Правильно!')
end
else
begin
kn:=kn+1;
writeln ('Неправильно! ',x,' * ',y,' = ',x*y)
end
end;
writeln ('Было ',kp,' правильных и ',kn,' неправильных ответов')
end.
3.
program TabUmnO;
var x,y,i,z,kp:integer;
begin
kp:=0;
randomize;
for i:=1 to 10 do
begin
x:=random(8)+2;
y:=random(8)+2;
writeln ('Сколько будет ',x,' * ',y);
read (z);
if z=x*y then
begin
kp:=kp+1;
writeln ('Правильно!')
end
else writeln ('Неправильно! ',x,' * ',y,' = ',x*y)
end;
writeln;
if kp=10 then writeln ('Оценка 5');
if (kp<=9) and (kp>=7) then writeln ('Оценка 4');
if (kp<=6) and (kp>=4) then writeln ('Оценка 3');
if kp<=3 then writeln ('Оценка 2')
end.