Составить программы 1.найти сумму всех 3х значных чисел кратных 17. 2.найти произведение всех чисел меньше 16.
Zelais
3
18.05.2019 03:00
1
Другие вопросы по теме Информатика
Haranmeu
03.09.2020 04:48
linali20041
03.09.2020 04:24
StasSav06
03.08.2019 22:00
tatianabeklemia
30.03.2020 14:23
analekss
15.06.2019 22:30
3648
22.11.2021 10:58
юра416
22.11.2021 10:58
Популярные вопросы
- Cцифр 20,7,5 составь и запиши два примера на вычитания и один...
3 - Из параграфа 27 габриелян 9 класс выписать оксиды азота и к каждому...
1 - Найдите значение выражения log4 104 -log4 6,5....
2 - Написать сочинение на тему: поездка в деревню план: 1.выехали....
2 - Напишите ( 10 предложений), о том как колумб открыл америку....
2 - Стоимость автомобиля 355 600 р. сколько стоит автомобиль, если...
2 - Как придумать шуточный рассказ используя слова пассажир терраса...
3 - Подчеркните величину нормального артериального давления человека?...
1 - Повесил.разобрать по составу.по-приставка вес -корень ил- окончание...
2 - Три прямые а, & и с проходят через точку о и пересекают плоскость...
2
1)
var b,i:integer;
begin
b:=0;
for i := 100 to 999 do
if (i mod 17) = 0 then b:=b+i;
writeln (b);
end.
2)
var b,c:integer;
begin
b:=1;
for c:= 1 to 15 do
b:=b*c;
writeln (b);
end.