Найти сумму чисел от 0 до 50 кратных 6
whitepanda1
3
17.08.2019 17:30
0
Другие вопросы по теме Информатика
bogachevavalery
03.03.2019 06:50
AlexWhite472
22.04.2020 17:27
Нм6шиш
22.04.2020 17:27
TuyaChimitova
11.09.2020 14:50
razi2008900
11.09.2020 14:50
ОленкаБурковська
01.10.2019 16:40
kristinakarpova2
03.09.2020 16:52
Популярные вопросы
- Используя политическую карту мира (атлас, с. 30—31), определите названия...
2 - Первая русская кругосветная экспедиция началась в а) 1519 году Главной целью...
1 - Рассмотрите фрагмент географической карты. Классифицируйте указанные географические...
3 - Какие три океана можно пересечь, обогнув материк? Почему на материке север...
3 - Площадь материка Евразия составляет а) 9 млн км2 б) 30 млн км2 Граница между...
1 - Этот пролив разделяет два материка, два полуострова, две страны. Соединяет...
1 - Используя политическую карту мира (атлас, с. 30—31), заполните таблицы,...
1 - Составьте текст, дополнив предложения. Озаглавьте его. В экспедицию были...
2 - С физической карты Антарктиды (атлас, с. 13) совершите воображаемое путешествие...
3 - Составьте таблицу «Рекордсмены Евразии»....
3
s,i: integer;
begin
s:=0;
for i:=0 to 50 do
if i mod 6 =0
then s:=s+i;
writeln ('S = ',s)
end.
S = 216