1. Информатика
  2. Написати програмний код процедури

Написати програмний код процедури для обчислення суми чисел, кратних 5, з діапазону від 15 до 48

evgen22region evgen22region    3   22.09.2019 03:10    1

Ответы
olysenko290 olysenko290  08.10.2020 08:33
//pascal
var sum,i:integer;
begin
for I:=15 to 48 do
begin
if (i mod 5 = 0) then sum:=sum+i;  
end;
writeln(sum);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
kotofrei231 kotofrei231  02.12.2021 21:33
Текстовый файл 24-s1.txt состоит не более чем из 106 заглавных латинских букв (A..Z). Текст разбит на строки различной длины. Определите количество строк, в которых...
He1111p He1111p  02.12.2021 21:31
Герой олимпиад Василий Пупкин взял правильно записанное математическое выражение со скобками и выбросил из него всё, кроме скобок, например: (()(()())(())()) Затем он...
Ампорик Ампорик  02.12.2021 21:31
Использование электронного ресурса «Quizizz.com» при организации обучения по русскому языку...
outoforder outoforder  02.12.2021 21:29
Девять ребят нашли на улице бездомного котенка. Один из них взял котенка домой. Кто из ребят взял котенка домой, если они утверждают: •Паша: «Это сделал Вася»; •Борис:...
29082 29082  02.12.2021 21:28
Переведи число 88 из десятичной системы счисления в двоичную систему счисления. (В ответе укажи двоичное число. Основание системы счисления указывать не нужно.) ответ:...
Link2009 Link2009  02.12.2021 21:27
Разведчик передал в штаб радиограмму ∙−−∙∙∙−∙∙−−∙∙−∙−− В этой ра­дио­грам­ме со­дер­жит­ся по­сле­до­ва­тель­ность букв, в ко­то­рой встре­ча­ют­ся толь­ко буквы А,...
Margo231 Margo231  02.12.2021 21:25
Информатика 7 класс Босова. решите нужно скоро отдать ♥...
alinakat98 alinakat98  02.12.2021 21:08
Сообщение на тему: какие новейшие компьютеры есть на данный момент всё о нынешних компьютерах(из чего состоят и т.д)...
Snihdsfg Snihdsfg  02.12.2021 21:02
Даны действительные числа a(1), ..., a(7). Вычислить a(1)2 +...+ a(7)2 . Исходные данные вносятся с клавиатуры. решить в с++ работа с массивами и циклами...
violettasergeevna violettasergeevna  02.12.2021 21:02
Ситуация такая, в начале загрузки все хорошо, но спустя время, скорость падает до 0. С интернетом все хорошо, 200 мб/сек, подключение по WIFI. В steam с загрузкой все...

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