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.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
