Помогите, пожалуйста, в Паскале. Составить программу, по которой компьютер находит произведение нечетных чисел, начиная с
единицы, и до тех пор, пока на вопрос, задаваемый после каждого шага вычислений: «Продолжить вычисления? (Д/Н)», отвечают ‘Д’.
Знаешь ответ?
Чтобы оставить ответ, войдите или зарегистрируйтесь.
Ответ или решение 1
Ширдил
program by_XYCAK ;
var
a, b, c: char;
s, k: integer;
begin
b := 'Д';
c := 'Н';
k := 2;
repeat
begin
write('Продолжить вычисления? (Д/Н) ');
readln(a);
if a = b then
begin
s := k + k;
writeln(s);
k:=k+2;
end
else
if a = c then break;
end;
until FALSE;
end.
var
a, b, c: char;
s, k: integer;
begin
b := 'Д';
c := 'Н';
k := 2;
repeat
begin
write('Продолжить вычисления? (Д/Н) ');
readln(a);
if a = b then
begin
s := k + k;
writeln(s);
k:=k+2;
end
else
if a = c then break;
end;
until FALSE;
end.
Новые вопросы в разделе Информатика
Адинела
05.10.2022, 08:15
Гаязутдин
05.10.2022, 01:10
Алайбек
05.10.2022, 01:05
Акияма
05.10.2022, 01:00