1. Информатика
  2. Написати програму на турбо

Написати програму на турбо паскаль,для обчислення суми чисел кратних трьом,які не більше 100.

пок15 пок15    1   05.06.2019 20:40    1

Ответы
anastasiiauski anastasiiauski  06.07.2020 08:23
Var s,i:integer;
begin
for i:=3 to 100 do
  if i mod 3=0 then s:=s+i;
write('Сумма: ',s);
readln
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
Masha134689 Masha134689  02.03.2021 07:29
Что входит в язык программирования​...
TruckThorEast TruckThorEast  05.06.2019 12:40
Массив а из 10 элементов заполнен случайными числами от 2 до 7. вычислить массив в, элементы которого вычисляются по формуле: в[i]=a[i]+10....
Савина11 Савина11  19.02.2021 15:53
программе «:=» обозначает оператор присваивания, знаки «+», «-», «*» и «/» — соответственно операции сложения, вычитания, умножения и деления. Правила выполнения операций...
School957 School957  19.02.2021 15:51
7 класс. Информатика. 1 пункт только....
kat19810 kat19810  19.02.2021 15:50
Написати програму перевірки суми цифр тризначного числа на парність.Число для перевірки вводить користувач.Вивести суму цифр та повідомлення сума цифр парна або сума цифр...
Zod2141 Zod2141  28.06.2019 07:30
Найдите ошибки в программе: programm 101 { эта программа печатает число недель в году { var s; integer; begon s: =56 write(в году s недель); end...
vitalik153fb vitalik153fb  28.06.2019 07:30
Определите информационный объём графического изображения размером 256*365 пикселей , глубина кодирования 16 бит...
Gadzi06 Gadzi06  09.09.2021 17:35
Найти квадрат наибольшего из двух чисел а и b. Вывести на экран сообщение «Большим является первое число»,значение числа a, «его квадрат равен»,значение квадрата числа...
nastenkasysuev nastenkasysuev  22.06.2019 16:30
По периметру своей комнаты бильбо развесил разноцветные фонарики сколько фонариков он развесил если длина комнаты 3с ширина 2м а фонарики он вешал на расстоянии 5 дм один...
546546YGygY 546546YGygY  22.06.2019 16:30
Які рослини мають суцвіття китиця ?...

Популярные вопросы