program zero;
var x, y:Integer;
begin
Writeln('Введите число:');
Readln(x);
If x<0 then
y:=Sqr(x)+3
else
y:=(Sqrt(x) - 3)/5;
Writeln(' : ', y) ;
Readln
End.
4. var s, n: integer;begins := 8
посчитайте пж, тема урока "цифро
Напишите программу, которая счит
посчитайте ответитьКак найти э
Как называется описанный метод с
Что такое сортировка?Выберите од