Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
hkkk1gonso
21.04.2021 12:39 •
Информатика
Паскаль! найти сумму не превышающую 50-ти квадратов натуральных !
Показать ответ
Ответ:
shwabmitia
23.07.2020 18:46
сумма квадратов натуральных чисел до 50
var
i: integer;
s := 0;
begin
for i := 1 to 50 do
s := s + i * i;
writeln(s);
end.
сумма квадратов натуральных чисел ближайшая к 50
var
s := 0;
i := 0;
begin
repeat
s := s + i * i;
i := i + 1;
until s + i * i >= 50;
writeln(s);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Полина89750
26.09.2020 21:57
Из 29 школьников 5 играют в шашки, 8 — в шахматы. 5 ребят играют и в шашки, и в шахматы. Сколько ребят не играют ни в шашки, ни в шахматы? Используй для решения круги Эйлера....
НикаМарьям
08.10.2020 01:02
Сколько раз исполнится следующий цикл: i:=21; Repeat i:=i-5 Until i =6;...
89523203663
30.04.2023 22:01
Номер 1 алгоритмом если можно как бы начало-условие и т.д...
lisyono525
28.10.2021 06:49
Нужно написать программу, до 7 часов утра в paskale. . №1 написать программу, которая с функции удаляет из строки последнее слово. №2 написать программу, которая с функции выводит...
EseniyaMaster
25.02.2022 23:07
Составить алгоритм цель которого вы вывести на экран наименьшее значение переменных a b c и d проверить правильность алгоритма для разных значений переменных...
fatimaptacek
15.03.2021 22:20
Сколько существует различных наборов значений логических переменных x1, x2,… x7, y1, y2,… y7, которые удовлетворяют всем перечисленным ниже условиям? (x1=y1)→(x2=y2) (x2=y2)→(x3=y3)...
Bogura
15.03.2021 22:20
Вкакой строчке допущена ошибка в программе, написанной на языке pascalabc. программа должна высчитывать произведение элементов целочисленного массива. 1) program summa; 2) var...
Olegafrey
18.07.2022 17:31
Примеры. 1) точной, достоверной, но бесполезной информации. 2) актуальной , но непонятной информации. 3) объективной, но недостоверной!...
1MEM1
19.12.2020 19:48
Укажите Какие команды Алтынай должна выполнить чтобы изменить поля документа...
msneznot
12.03.2021 05:29
Рано утром Вася решил сделать домашнее задание по информатике. Начать выполнение задания Вася решил с поиска подходящей тетрадки. Добравшись до ящика с чистыми тетрадями, он...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var
i: integer;
s := 0;
begin
for i := 1 to 50 do
s := s + i * i;
writeln(s);
end.
сумма квадратов натуральных чисел ближайшая к 50
var
s := 0;
i := 0;
begin
repeat
s := s + i * i;
i := i + 1;
until s + i * i >= 50;
writeln(s);
end.