Ответы на вопрос:
Var sum,i: integer; begin for i: =100 to 1000 do if (i mod 3=0) then sum: =sum+i; writeln('сумма чисел кратных 3 равна ',sum); end.
Популярно: Информатика
-
Ресурсы интернета - это электронная почта телеконференции компьютеры,...
kmodeste12.06.2022 08:05 -
Составить программу в паскале , используя оператор цикла с предусловием....
osolonskaya31.12.2021 15:48 -
1. какой объем будет иметь видео передаваемое с разрешением кадра 800...
ErikLusenko27.11.2022 10:24 -
Какое заведение находится сейчас в здании александровского реального училища?...
altynai050402.03.2020 09:15 -
с информатикой 100б даю...
Danelpos25.03.2020 01:54 -
Переведите двоичное число 1011101 в восьмеричкусистему .Получителя:...
322pussy32218.12.2021 03:40 -
Нужно оценить коэффициент сжатия с алгоритма в худшем случае. Опишите...
katenabulasheva31.01.2020 00:56 -
Определите вид памяти. у меня СОР...
залина06108.09.2020 18:51 -
запишите число в свернутой форме 1×3^8+2×3^5+1×3^2+2...
tiser27.12.2022 19:44 -
В почтовом ящике письма которые хранятся в соответствующих Папках письма,которые...
ыфыфыф55315.06.2022 19:49