Дано четырехзначное число.найти сумму квадратов второй и третьей цифры
Ответы на вопрос
Ответил goschapavlenko
0
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.
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.
Новые вопросы