Задание:
Задача: Написать программу вычисления суммы всех двузначных чиселS=10+11+12+… +99 для QBasic
Решение:
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.
Знаете другой ответ?