Напишите программу в паскале, что бы суммировало числа от 1 до 50 которые заканчиваются на три.
Lagunahey
3
19.05.2019 07:30
0
Другие вопросы по теме Информатика
Madinamkm
31.08.2019 00:10
oleg120906
31.08.2019 00:10
alidniva111
15.06.2019 10:50
nfedorova868
15.06.2019 10:50
egn96637
27.02.2021 22:17
Katysha1111111
21.09.2019 13:10
Shizophren
21.09.2019 13:10
Kirill316111
21.09.2019 13:10
vlab2018
03.02.2021 22:34
Популярные вопросы
- Из двух пунктов, расстояние между которыми 17км вышли два теплохода...
3 - Как вы думаете, почему много новых направлений в культуре на рубеже...
3 - Что в рассказе планета людей запрещалось лётчикам инструкцией при...
2 - Людина стрибнула з великого моторного човна на берег річки? що можна...
2 - 13. Во время экскурсии учащиеся сделали схематическую зарисовку залеганиягорных...
2 - Катеты прямоугольного треугольника АВ = 8 см и АС = 14 см перпендикулярны...
1 - Несприятливою рисою економіко-географічного положення країн Латинської...
2 - 4 та 5 завдання з дискретної математики...
2 - Коло вписане в рівнобічну трапецію дотикається до бічної сторони...
2 - Дати характеристику Устині панночці...
1
var
i, summ:integer;
begin
for i := 1 to 50 do
if i mod 10 = 3 then
summ := summ + i;
writeln('Summ = ', summ);
end.
var
s,i:integer;
begin
for i := 1 to 50 do begin
if i mod 10 = 3 then
s := s+i;
end;
writeln(s);
end.