Дано четырехзначное число. найти сумму квадратов второй и третьей цифры

Question

Информатика

Агапий

11 сентября, 12:13

Дано четырехзначное число. найти сумму квадратов второй и третьей цифры

+1

Ответы (1)

Знаете ответ на вопрос?

Родион · Answer 1

Program zadanie;

Var a, b, c, d, S:real;

Begin

Writeln ('Введите значение четырехзначного числа через запятую (пример: 1 3 5 6) ') ;

Readln (a, b, c, d) ;

S:=sqr (b) + sqr (c) ;

Writeln ('Сумма квадратов второй и третьей цифры равна=', S)

End.