Дано целое двузначное число М. Разработайте схему алгоритма, который вычисляет сумму всех...

Question

Дано целое двузначное число М. Разработайте схему алгоритма, который вычисляет сумму всех двузначных чисел, начиная с числа М. Используйте цикл ПОКА. Желательно на языке Паскаль.

Answer 1

Схема и программа вместе:
Program sum;
var M,b,c:integer;
begin
writeln('Введите число от 10 до 99: ');
readln(M);
c:=M;
if (M<10) or (M>99) then b:=0 
else
while (M<100) do<br>begin
b:=b+M;
inc(M);
end;
writeln('Сумма всех двухзначных чисел начиная от ',c, ': ',b);
end.

---