Лукиан
4 год назад
Доработать программы:сделать контроль ввода пользователем(если пользователь 3 раза ошибается-программа закрывается)program For16;varA,Rez:Real;N, i :Integer;beginWrite('Введите A: ');Readln(A);Write('Введите N: ');Readln(N);Rez:=1;For i:=1to N dobeginRez:=Rez*A;Writeln(Rez);end;end.Пожалуйста посчитайте пожалуйста
ОТВЕТЫ
Vladimir
Oct 24, 2020
begin;
var errs:=0;
var A,N:integer;
loop 3 do
try
(A,N):=ReadInteger2('Введите через пробел А и N:');
var Rez:=1;
for var i:=1 to N do Rez*=A;
Writeln(Rez);
Exit
except
errs+=1
end;
Writeln('Вы ошиблись трижды. Программа завершена')
end.
Введите через пробел А и N: 2 6
64
Введите через пробел А и N: 2 3,5
Введите через пробел А и N: 2 3.5
Введите через пробел А и N: 2 a
Вы ошиблись трижды. Программа завершена
321
Смежные вопросы: