P.S Программанаписна для Pascal.
program chislo;
var
n, s, k :real;
begin
writeln('Введите число: ');
read(n);
if n>=0 then
begin
s:=sqrt(n);
writeln('Квадратный корень числа: ',s);
end
else
begin
k:=sqr(n);
writeln('квадрат числа: ',k);
end;
end.
Что важнее материнской платы? Процессор
Что делает видео карта? Показывает работу ПК
Что делает оперативная память? Загружает приложения и программы для работы пользователя