Записати програму для знаходження суми 10 натуральних чисел
Oueio
1
22.05.2020 19:45
0
Другие вопросы по теме Информатика
Elyzaveta2004
25.10.2021 14:59
Игорь981
25.10.2021 14:58
saksharovsasha
25.10.2021 14:51
Zero00000
25.10.2021 14:38
saponovadasha
25.10.2021 14:34
валерия821
05.10.2019 07:50
lizatrubach2002
11.12.2020 01:48
Vlipli779
11.12.2020 01:50
Популярные вопросы
- 16. Прочтите отрывок из документа и выполните задания. Используйте...
3 - 1. Ертең мата сатып аламын. 2. Мен етікті былғарыдан тіктім....
2 - Сочинение+план про тему как владимир дубровский стал разбойником?...
1 - ПОЗЯЗЯ.розподільний диктант. подані іменники потрібно погрупувати...
1 - Основные требования левеллеров...
1 - Вертикальная башня высотой 16 видно из точки C на поверхности...
1 - заранее большое ббаллов 1,2 и 3...
1 - Только можно написать количество в граммах, а то я в химии не...
3 - 2. Сопоставь свойства с веществами (предметами, состоящими из...
2 - 2.1 Вращательное движение без 2. В момент шторм ового предупреждения...
1
Program Zadacha;
Const c = 4; max = 50;
Var a, b: Integer;
Begin
a := c;
While a < max Do
Begin
If a Mod c = 0 Then
b := b + a;
a := a + 1;
End;
WriteLn('Сума чисел, кратних ', c, ' і менше ', max, ' становить ', b);
ReadLn;
End.