Напишите программу, которая в последовательности натуральных чисел определяет сумму двухзначных чисел, кратных 5. программа получает на вход натуральные числа, количество введенных чисел не известно, последовательность чисел заканчивается 0. количество чисел не превышает 100. введенные числа не превышают 30000. программа должна вывести одно число: сумму двухзначных чисел, кратных 5. люди! , ! т,т

geragyy geragyy    1   21.05.2019 03:10    0

Ответы
оля20121 оля20121  14.06.2020 23:40

program qf;

uses crt;

var x,y,s:integer;

begin

clrscr;

writeln('введи число');

readln(x);

s:=0;

while x<>0 do begin

if (x>9)and(x<100)and(x mod 10=5) then 

s:=s+x;

writeln('введи новое число');

readln(x);

end;

writeln('сумма дувхзначных чисел=',s);

readln;

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика