Задача: Написать программу вычисления суммы всех двузначных…

Question

Задача: Написать программу вычисления суммы всех двузначных чиселS=10+11+12+… +99 для QBasic

Answer 1

54

shkets

05 февраля 2023

Program vsum; var a,b,x: integer; const error='Error! Enter two-digit number.'; begin Write ('Enter a='); ReadLn (a); if (a <= 99) and (a >=10) then begin Write ('Enter b='); ReadLn (b); if (b <= 99) and (b >=10) then begin x: =a+b; WriteLn ('a+b=',x); end else Write (error); exit; end else WriteLn (error); exit; end.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: