Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
romaantonizin
21.10.2021 16:30 •
Информатика
Напишите программу вычисления суммы квадратов всех натуральных двузначных чисел, кратных 5
Показать ответ
Ответ:
Отличник1029
26.06.2020 16:14
Program summa;
var a,s,i:integer;
begin
s:=0;
for i:=10 to 99 do begin
if (i mod 5=0) then s:=s+sqr(i);
end;
writeln(s);
end.
:
0,0
(0 оценок)
Популярные вопросы: Информатика
AMeleschckina2
23.04.2022 12:31
Если в ячейке электронной таблицы отображается следующая последовательность символов ### то это означает?...
BaSfOr
04.12.2020 09:21
Решить : ( делать в условном операторе)1. даны 2 числа а и b, найти разность между большим и меньшим из этих чисел. 2. дано вещественное число а, число а увеличивается...
Кристина0930
20.01.2022 19:07
Вчем ошибка? пишет индекс находится вне границ массива вроде 17 сторока program test; uses crt; var s, s1: string; n, f, i, j, len: integer; begin clrscr; writeln( введите...
DeadFox2013
05.06.2020 18:41
Как отмерить 1 литр воды с 5- и 9- литрового ведра? придумать алгоритм .в каком ведре окажется 1 литр? 1. -наливаем в 5- алгоритм в 4 действия.....
Timyr1020
09.06.2023 08:59
Составить программу, вычисляющую среднее арифметическое n чисел, вводимых с клавиатуры. паскаль....
ИНТЕРНЕТ1111
19.11.2020 21:54
Программа на языке паскаль надо использовать for i= 1 to 10 do...
yanakuznetsova9
24.10.2021 17:37
Существенные свойства автобуса с точки зрения пассажира и с точки зрения водителя,? несущественные свойства с точки зрения пассажира и водителя...
км2002
09.02.2023 09:21
Даны 4 числа, найти наименьшее из -паскаль)...
den111111111113
23.01.2020 08:07
Даны 4 числа, найти наименьшее из них.(язык паскаль)...
Мурад1001
23.01.2020 08:07
Как нарисовать букву и в паскале например uses crt; var i,j: byte; begin clrscr; for i: =1 to 7 do begin gotoxy(1,i); write( * ); gotoxy(11,i); write( * ); end; gotoxy(2,4);...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var a,s,i:integer;
begin
s:=0;
for i:=10 to 99 do begin
if (i mod 5=0) then s:=s+sqr(i);
end;
writeln(s);
end.
: