Предмет: Информатика,
автор: vujaweruf
алгоритм и программа вычисления суммы 2 нечетных двузначных чисел пока сумма не станет 150 . Используя цикл с параметром "ДО"
Ответы
Автор ответа:
0
Как-то условие не очень понятно. Если требуется найти сумму ДВУХ чисел, то программа может быть такой:
var a1,a2,s: integer;
begin
a1:=11;
a2:=13;
repeat
a1:=a2;
a2:=a2+2;
s:=a1+a2;
until s>=150;
writeln(a1,'+',a2,'=',s);
end.
Результат работы программы:
75+77=152
Если нужно найти сумму 11+13+15+ ..., по ка не получится >=150, то это можно сделать так:
var a,s: integer;
begin
a:=11;
s:=0;
repeat
write(a,'+');
s:=s+a;
a:=a+2;
until s>=150;
writeln('=',s);
end.
Результат:
11+13+15+17+19+21+23+25+27+=171
var a1,a2,s: integer;
begin
a1:=11;
a2:=13;
repeat
a1:=a2;
a2:=a2+2;
s:=a1+a2;
until s>=150;
writeln(a1,'+',a2,'=',s);
end.
Результат работы программы:
75+77=152
Если нужно найти сумму 11+13+15+ ..., по ка не получится >=150, то это можно сделать так:
var a,s: integer;
begin
a:=11;
s:=0;
repeat
write(a,'+');
s:=s+a;
a:=a+2;
until s>=150;
writeln('=',s);
end.
Результат:
11+13+15+17+19+21+23+25+27+=171
Интересные вопросы
Предмет: Қазақ тiлi,
автор: balabekmedet
Предмет: Немецкий язык,
автор: Аноним
Предмет: Музыка,
автор: ivanovalubasha010519
Предмет: Литература,
автор: Солнцева123
Предмет: Математика,
автор: Alena033