1. Информатика
  2. Напишите программу на

Напишите программу на pascal в последовательности натуральных чисел найти сумму всех двухзначных чисел которые начинаются на 5. ввод чисел заканчиваются 0

katasinicina39 katasinicina39    2   22.07.2019 23:10    0

Ответы
F1kser F1kser  23.09.2020 19:28
Var a,s: integer;
begin
  repeat
    readln(a);
    if (a>9) and (a<100) and (a div 10 = 5) then s:=s+a;
  until a = 0;
  writeln(s);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
1064738193747 1064738193747  03.10.2019 20:50
Скільки біт пам яті займе слово мікропроцесор ?...
DmitriiSh197 DmitriiSh197  03.10.2019 20:50
Логическое выражение (av не-a)& (b& 1). заранее большое !...
Margo231 Margo231  03.10.2019 20:50
1. сколько разных знаков можно закодировать трехзначным позиционным триочиным числом....
veraorfey veraorfey  29.08.2019 11:50
Укажите формат файла, который не является графическим: а) png b) xcf c) tiff d) xcl...
poly77 poly77  21.05.2019 11:50
ответьте на вопросы: 1= почему форму представления звука в компьютере можно называть дискретной и цифровой? 2= что такое цап и ацп? 3= какие элементы звуковой карты отвечают...
marinet2017 marinet2017  31.05.2019 13:30
1) у исполнителя калькулятор две команды, которым присвоены номера: 1. прибавь 1 2. увеличь каждый разряд числа на 1 например, число 23 с команды 2 превратится в 34, а 29...
Albina1809 Albina1809  31.05.2019 13:30
Превратите одно слово в другое,всякий раз заменяя по 1 букве,чтобы новое слово было существительным в именительном падеже. (5 слов) (5 слов)...
aaablaeva aaablaeva  31.05.2019 13:30
Найти количество нулевых элементов массива а(16)...
kasabyan2000 kasabyan2000  31.05.2019 13:30
Составить программу вычисления корней квадратного уравнения поь даным значениям его коффицеент...
em130STM em130STM  26.04.2020 15:07
У исполнителя Бета две команды, которым присвоены номера: 1. прибавь b 2. умножь на 2 (b – неизвестное натуральное число) Выполняя первую из них, Бета увеличивает число на...

Популярные вопросы