Доработать программки:сделать контроль ввода пользователем(если пользователь 3 раза
Доработать программы:сделать контроль ввода юзером(если юзер 3 раза заблуждается-программа запирается)
program For16;
var
A,Rez:Real;
N, i :Integer;
begin
Write('Введите A: ');
Readln(A);
Write('Введите N: ');
Readln(N);
Rez:=1;
For i:=1 to N do
begin
Rez:=Rez*A;
Writeln(Rez);
end;
end.
Помогите пожалуйста
Рутков
Сергей
Буквы
Данил Капетман
Спасибо
Коля Пуссэт
Я далее не могу, после переменных, не выходит цикл составить
Кухорукова
Стефания
Так лучше? :D
Полинка Слободник
Да, на .net норм
1 ответ
Рита
// PascalABC.NET 3.3, сборка 1547 от 07.10.2017
// Внимание! Если программка не работает, обновите версию!
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
Вы ошиблись три раза. Программа завершена
// Внимание! Если программка не работает, обновите версию!
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
Вы ошиблись три раза. Программа завершена
Карина Сигалева
Спасибо
Валерий Качор
Громадное
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Газообразный аммиак объёмом 2.24 л (н.у.) был полностью поглощён 14.68 мл
Химия.
Упражнение 2 Выпишите глаголы и вставьте пропущенные буквы
Русский язык.
Радиус окружности, описанной около равностороннего треугольника, равен 6. Найдите сторону треугольника
Геометрия.
Вычислите силу с которой при давлении 100 КПа атмосфера давит на
Физика.
Синтаксический разбор и схема Но мы сказали, что нам ничего не
Русский язык.
Массовая доля целлюлозы в древесине составляет 50%. Какая масса спирта может
Химия.
помоги мне пожалуста прш
869*(61124-488*125)-50974
Математика.
по шкале высот определить ,в каком направлении происходит понижение релефа уральских гор
География.
Помогите пожалуйста написать Сочинение Овчинникова "победитель'
Литература.
Здравствуйте. Нужен цитатный план испытания лётчика в лесу главы2-13 по повести
Разные вопросы.
Облако тегов