1. Информатика
  2. Программа pascal abc

Программа pascal abc : введите 70 чисел, выведите сумму чисел из введённых меньших 100

omim omim    2   05.10.2019 02:01    0

Ответы
Eka228 Eka228  09.10.2020 20:51

var a,s: integer;

i: byte;

begin

for i:=1 to 70 do begin

readln(a);

if a < 100 then s:=s + a;

end;

writeln(s);

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
Elv26 Elv26  13.03.2020 21:26
#include int main (void) { long number; int ost; scanf( %ld , &number); while (number != 0) { ost = number%10; print( %d\n , ost); number = number / 10; // то же самое можно записать...
golubfrog golubfrog  13.03.2020 21:46
Решите файл по информатике...
kholmatova002 kholmatova002  13.03.2020 22:12
Нужносоздать программу для отображения дня недели с оператора выбора. ​...
fairytailguil fairytailguil  10.12.2020 16:45
Автомат получает на вход четырёхзначное десятичное число, в котором все цифры нечётные. По этому числу строится новое число по следующим правилам.1. Складываются первая и вторая, а...
123polinapolina 123polinapolina  10.12.2020 16:43
Информационные модели бывают ... Укажите один или несколько правильных вариантов ответа:символьнымирисованнымиобразнымисмешаннымизнаковыми​...
A11002030999 A11002030999  15.05.2021 07:01
Чему равен результат выполнения псевдокода, если n = 5? Произведение чисел Алг (арг целое n, арг целое P) передано / n 0требуется / P=1*2*3**n голова целая i ввод n; P:=1 для цб от...
DaryaMoh DaryaMoh  15.05.2021 06:55
за задание много !Переведите программу из языка Паскаль в язык Питон!var del, count, min, i: longint;begin count := 0; del := 0; min := 22001; for i := 11000 to 22000 do begin if i...
DarknEssDk11 DarknEssDk11  15.05.2021 06:44
Программирование нужна с++ 1. Программная реализация линейного алгоритма. Написать программу используя стандартные потоки чтения/записи cin и cout....
Kurbatovaolga15 Kurbatovaolga15  15.05.2021 06:33
4. Сопоставь данные: [4] 1. Button()2. Label()3. Entry() 4. Radiobutton() A. Отвечает за создание поля ввода данных В. Отвечает за создание множества возможных вариантов для выбора...
nadyayde nadyayde  15.05.2021 06:23
Напишите программу с циклом for для вывода на экран всех чисел кратных З в диапазоне (-48; 6]. ​...

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