Сделай фор сплюснем потом также только с минусом
На языке паскаль, за
![\pi](https://tex.z-dn.net/?f=+%5Cpi+)
взято 3,14:
program ball;
var s,r, r2 : real;
begin
writeln('Введите радиус шара');
readln(r);
r2:=sqr(r);
s:=4*3.14*r2
writeln('Площадь шара равна ', s);
readln;
end.
Имеется в виду каждый может сказать но не каждый может сделать
плата вроде как, если не ошибаюсь
1) var a,b:integer;beginreadln(a,b);if a>b thenwriteln(a+b,' задача решена')else writeln(a*b,' задача решена');end.
2) !!! ; 3 ; 16 ; 7 ; 8 ; 29 ; 66
3) 1
4) -5; 0; -6; 5; -0.4; 0.32; -17; 15; 11; 7; 8