Войти Регистрация Спроси ai-bota

Вычислить сумму квадратов a и b в abc pascal

Ответ:

RomanBilyan

27.07.2020 23:19

Program Summa;
var k,f,a,b,S: integer;
Begin
Readln(a,b);
k:=a*a;
f:=b*b
S:=k+f;
Writeln(S);
end.

0,0(0 оценок)

Популярные вопросы: Информатика

lipun2004

01.05.2020 05:06

в 5 системе счисления +543 в 8 системе счисления - EF= ПЕРЕВЕСТИ В 10 И 2 СИСТЕМУ СЧИСЛЕНИЯ...

Tanya72828

16.09.2021 10:08

Начав тренировку лыжник в 1 день пробежал 10 км. каждый след. день он увеличивал длину пробега на 10% от пробега предыдущего дня. определить: в какой день он пробежал больше 20...

primarina2000p09pnc

16.09.2021 10:08

Напишите в ответе наибольшее значение входной переменной k, при котором программа выдаёт тот же ответ, что и при входном значении k = 16. var k, i : longint; function f(n: longint):...

оьмдды

06.06.2023 22:46

Каково наименьшее основание для позиционной системы? написать только ответ...

IrinaZoloeva

01.05.2020 11:26

Расставь строки так, чтобы получилась программа, которая принимает два числа от пользователя и выводит на экран их произведение. read (j); program proizvedenie_chisel; end. write(...

mssuslova1980

17.11.2020 04:27

Дописать 1Причина прихода фашистов к власти:1.1 Слабость немецкой ...-отказ ее от... .1.2 Слабость рабочего класса-не сумевшего организовать... фронт борьбы с фашизмом вместе с...

Turalinin

18.06.2020 19:10

Если напряжение на фонаре 6 В, а мощность 15 Вт, определите его ток....

vladys4u

18.06.2020 19:10

Put commas in the correct place in the sentences Sometimes a comma is not necessary . 1 Jenny who joined our class this term is a very good swimmer . 2 I The school I went to when...

Rosalin1

29.03.2020 08:03

ж Лооракллалвл ляджэфжцлыьвов...

Пони0с0радушкой

08.06.2020 03:59

Преобразуйте в много член 1) (y-4)²=2)(5c-1) (5c+1)=3)(7x+a)²=4)(3a+2b) (3a-2b)=...

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку