1. Дано целое двузначное число. Написать программу которая находит квадрат суммы его цифр. pascal

Question

Информатика

Мартиниан

4 августа, 12:01

1. Дано целое двузначное число. Написать программу которая находит квадрат суммы его цифр. pascal

+5

Ответы (1)

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

Адамыч · Answer 1

Program qwerty;

var a, b, c, d:integer;

begin

writeln ('Нахождение квадрата суммы цифр двузначного числа') ;

writeln ('Введите число ') ;

readln (a) ;

b: = a mod 10;

a: = a div 10;

c: = a mod 10;

a: = a div 10;

d: = sqr (b + c) ;

writeln ('Ответ: ', d)

end.