Войти Регистрация Спроси ai-bota

Определить сумму всех чисел из [а; b], кратных 5 (а

Ответ:

serduk352

06.10.2020 03:21

Var
   a,b:integer;
   S:real;
Begin
Write('a = ');
ReadLn(a);
Write('b = ');
ReadLn(b);
S:=0;
For b:= a to b do
    S:=S+b;
WriteLn('S = ',S);
End.

0,0(0 оценок)

Популярные вопросы: Информатика

manokhaangel

29.04.2022 23:15

Ернур выбрал инструмент ЗАЛИВКА и щёлкнул правой кнопкой мыши по орнаменту братику надо ...

vershynska

01.08.2020 00:37

Найдите наименьшее натуральное число, у которого ровно 32 делителя (включая 1 и само число 32). например, у числа 6 четыре делителя: 1, 2, 3, 6. в качестве ответа укажите...

petrovvalera05

11.07.2021 00:17

Дан массив из 7 чисел, которые вводятся с клавиатуры, вывести на экран значения элементов массива. сосчитать произведение всех ненулевых элементов массива. pascal abc.net...

AnastasiaHCWP

26.04.2022 23:21

Какой объём видеопамяти необходим для хранения трёх страниц изображения при условии, что разрешающая дисплея равна 800*600 пикселей, а количество используемых цветов равно...

Julia1331

28.12.2021 20:21

Базовые цвета в цветовой модели rgb...

КаринаЭрдниева

10.08.2022 00:45

Uses crt; var a, b, c: longint; begin for c: =10 to 10000000 do begin a: =c; b: =0; while a 0 do begin b: =b*10+a mod 10; a: =a div 10; end; if trunc(c*1.2) = b then writeln...

sabama

07.06.2022 13:03

Написать программу для вычисления объема куба по введённой длине ребра. если введеное число меньше либо равно нулю то сообщить об жтой ошибке пользователю. обязателен диалог...

lizon392

01.03.2021 04:03

Составьте программу к определите является ли введеное число двузначным . напишите...

mrfreeman26p0aanr

01.03.2021 04:03

Нужно, ! написать программу в паскале 1) начав собирать запасы на зиму, полевая мышь спрятала в норку 3 кг пшеницы. каждый следующий день она увеличивала запасы на 6% от собранного...

aiym19

11.02.2021 23:46

Функция считается перегруженной, если: 1) несколько одноименных функций имеют разные по типу и количеству параметры 2) несколько виртуальных функций имеют разные по типу и...

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку