Надежда умирает последней, мальчик мой
Выбор Тематики
Идея
Материал
Поиск информации
Оформление
Печать
//Pascal ABC.NET v3.0 сборка 1111
Var
a,b,c:integer;
begin
randomize;
a:=random(1,9);
b:=random(1,9);
write(a,'*',b,'=');
read(c);
if c=a*b then writeln('Yes') else writeln('No');
end.
<span>Пример вывода:
</span>6*9=
<span>Пример ввода:
</span>54
<span>Снова вывод:
</span>Yes
В начале программы надо написать Randomize;
вместо 3-ех while используй один for, и 3 переменные которые запоминают числа.
вот часть программы
for i:=1 to 20 do begin
if M[i]>0 then k:=k+1;
if M[i]<0 then t:=t+1;
if M[i]=0 then n:=n+1;
end;
writeln(k,'Положительные');
writeln(t,'отрицательные');
writeln(n,'Нулевые');
<span>Когда тебе нужно к этим объектам применять одно и тоже действие.Если хочешь объединить в массив.</span>