Написать программу на языке pascal вычисления суммы чисел кратных 3-ём в диапазоне от 1 до 100.

Question

Информатика: Написать программу на языке pascal вычисления суммы чисел кратных 3-ём в диапазоне от 1 до 100. ﻿﻿﻿﻿﻿

milanalive65 · Answer

var i,s:integer;begins:=0;for i:=1 to 100 do if i mod 3 = 0 then s:=s+i;writeln( s = ,s);end.Результат:s = 1683...

Написать программу на языке pascal вычисления суммы чисел кратных 3-ём в диапазоне от 1 до 100. ﻿﻿﻿﻿﻿