Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
shamil20042
19.11.2022 20:25 •
Информатика
1)напишите программу которая вычисляет сумму квадратов первых n-натуральных чисел.2)вводится последовательность целых чисел. последовательность оканчивается нулём,вывести максимальное число !
Показать ответ
Ответ:
пик124
23.09.2020 06:59
Var
n,i,s:integer;
Begin
write('Введите число n: ');
Readln(n);
for i:= 1 to n do
s:=s+sqr(i);
write(s);
End.
2.
Var
a,max:integer;
Begin
repeat
write('Введите число ');
Readln(a);
if a>max then max:=a;
until a=0;
write(max);
End.
0,0
(0 оценок)
Популярные вопросы: Информатика
Nope2281
12.03.2020 07:35
Закодировать в виде ребуса слово учитель...
Maxys365
12.03.2020 07:35
Какое наименьшее число вопросов необходимо задать, чтобы отгадать число в пределах от 1 до 200? считать, что загадавший может ответить на вопрос только да или нет ....
aidar2002032
17.01.2022 03:00
Синформатикой! : составьте программу для нахождения среднего арифметического нечетных двузначных чисел в кумире. вы моя последняя надежда....
dmitrosevchuk
10.01.2021 05:04
1.Сколько раз выполнится тело цикла в следующих фрагментах программ:а)for i:= 7 downto 0 do c:=2*i; б)for i:= 1 to 8do c:=2*i; 2.Определите значение переменной X после выполнения...
dmitrocreativ
10.06.2020 00:11
решить задачу. Вычислите, сколько байтов занимает на CD одна минута звукозаписи (частота дискретизации — 44 000, разрядность — 32 битов). Какова максимальная продолжительность звукозаписи...
VladeslavPavlo
02.02.2023 20:15
ЭТО ИТОГОВАЯ КР, ОТ НЕЕ ЗАВИСИТ ОЦЕНКА!...
Aslihaaan
26.11.2022 09:52
Какая из этих логических функций представлена в днф, кнф и тд?...
McGohanskii
16.05.2020 11:07
Диагональ правильной четырехугольной призмы наклонена к плоскости основания под углом 30. Найдите объём призмы,если ее высота 4...
mmsh19
16.05.2020 11:07
1. Збережіть назви мов світу, які вводяться в одному рядку через пропуск, у списку. Простежте за тим, щоб елементи у списку не зберігались в алфавітному порядку. Відсортуйте список...
новичок618
16.05.2020 11:07
Как учение об эсхатологии связано с идеей сотворенного (тварного) бытия?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
n,i,s:integer;
Begin
write('Введите число n: ');
Readln(n);
for i:= 1 to n do
s:=s+sqr(i);
write(s);
End.
2.
Var
a,max:integer;
Begin
repeat
write('Введите число ');
Readln(a);
if a>max then max:=a;
until a=0;
write(max);
End.