Войти
Регистрация
Спроси ai-bota
В
Все
Х
Химия
В
Видео-ответы
А
Алгебра
Г
Геометрия
О
ОБЖ
Д
Другие предметы
У
Українська література
Р
Русский язык
Б
Беларуская мова
У
Українська мова
Э
Экономика
Ф
Физика
М
Математика
Ф
Французский язык
Г
География
И
Информатика
М
МХК
О
Окружающий мир
П
Психология
Н
Немецкий язык
О
Обществознание
П
Право
И
История
М
Музыка
Л
Литература
Қ
Қазақ тiлi
Б
Биология
А
Английский язык
Показать больше
Показать меньше
Kettiplay
11.01.2021 05:33 •
Информатика
Даны числа а1,.определить сумму их квадратов. по. паскалю
Ответ:
iavonova15
02.10.2020 20:23
Var
s,i,j:integer;
begin
for i:=1 to 10 do
begin
j:=0;
read(j);
s:=s+(j*j);
end;
writeln;
writeln(s);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Eliiiii099
12.01.2022 07:43
Два примера любых информационных систем и разбейте их на подсистемы...
Lobaneckste
22.08.2022 08:54
Составить алгоритм на паскале чтобы найти количество учеников, которые написали контрольную на оценку выше 3( из 5).Если то я закрепил пример того как эту программу...
дарья1643
01.12.2020 20:52
Чему равна сумма чисел с5₁₆(здесь написано 16 внизу, если что) и 47₈? результат представьте в двоичной сс...
его18
29.01.2020 03:48
Скільки клітинок входить до діапазону D2E3 ?...
lolik22888
02.03.2022 06:12
Вученической бригаде 86 старшеклассников. 8 из них не умеют работать ни на тракторе, ни на комбайне. 54 хорошо овладели трактором, 62- комбайном. сколько человек могут...
мария2382
01.03.2021 00:59
3*ясувати,чим німецький фашизм відрізнявся від італійського....
Diana2005123105
11.12.2020 16:26
Дам 16 б Напишите о важности стремления к пониманию другого человека...
yakovleva03ow836v
26.02.2022 23:31
Як це зробити ( как это сделать?)...
kana8
23.01.2021 17:32
3. Найдите уменьшаемое, если вычитаемое равно 5у2 - 4у, а разность двух двучленов равна Зу2 - 2y. пож...
DarinaUSA
22.12.2022 01:08
На рисунке 1 равномерно вращается диск. Линейная скорость в точке A равна 4,8 м/с, а в точке B равна 1,5 м/с. Точка B находится ближе к центру диска, чем точка A,...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
s,i,j:integer;
begin
for i:=1 to 10 do
begin
j:=0;
read(j);
s:=s+(j*j);
end;
writeln;
writeln(s);
end.