Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
sashakoritnij
16.02.2023 15:44 •
Информатика
Икт - ! 35 ! мы начали проходить тему - циклы. : вводятся 2 числа a и b (b> a). посчитать сумму квадратов четных чисел от a до b.
Показать ответ
Ответ:
даша3634
17.04.2020 03:07
Var
a, b, i: integer;
s: longint;
begin
readln(a);
readln(b);
s:=0;
for i:=a to b do
if i mod 2 = 0 then
inc(s, i*i);
writeln(s);
end.
0,0
(0 оценок)
Ответ:
jdzhafarova
17.04.2020 03:07
Var a,b,s : Integer;
Begin
Readln(a,b);
s:=0;
If Odd(a) then Inc(a);
While a<=b do
Begin
s:=s+sqr(a);
Inc(a,2);
end;
Writeln('Result: ',s);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
ДимаИванов11
17.01.2023 21:42
Составьте программу которая подсчитывает количество цифр в строке(коды цифр от 48 до 57)...
ПУТИН222
01.07.2020 02:33
Как решить нужно на 12.12.17 n=100 (i+1) _ (i+2) если что рыска это деление...
Daina1115
20.05.2020 22:40
Переведите в биты: 2кб 16байт 1мб 2^3байт (это степень) 18кб...
ггггг21
06.08.2021 01:17
Восстановите ip-адрес: а)2.19 б).50 в)5.162 г)22 а)3.133 б)22 в).73 г) 4.13...
KaratisT222
06.08.2021 01:17
Переведите число 333 из десятичной в двоичную...
klemiatoeva
11.06.2021 02:19
IDE компоненттерін сәйкестендір...
Du13
16.10.2021 17:06
Visual Studio. Разработайте проект, который вычисляет значение функции. Предусмотреть ввод значения с клавиатуры и вывод результата на экран. При x -2 и x 2 функция f(x)...
alenkavarina
10.04.2020 05:22
Масса арбуза в кг.,а масса тыквы на 2 кг. меньше. какова общая масса арбуза и тыквы?...
Мисаки11111
10.04.2020 05:22
Что не было ему равного певца . вопрос где тут прилогательное?...
timaglushko200
10.04.2020 05:22
Write the verbs in the correct form of the present simple or present continuous. help mum: where’s alex molly: he’s upstairs. he __is having__ (have) a shower. mum: a shower?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
a, b, i: integer;
s: longint;
begin
readln(a);
readln(b);
s:=0;
for i:=a to b do
if i mod 2 = 0 then
inc(s, i*i);
writeln(s);
end.
Begin
Readln(a,b);
s:=0;
If Odd(a) then Inc(a);
While a<=b do
Begin
s:=s+sqr(a);
Inc(a,2);
end;
Writeln('Result: ',s);
end.