Дано четырехзначное число.найти сумму квадратов второй и третьей цифры
Дано четырехзначное число.найти сумму квадратов второй и третьей цифры
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы