552/30=18,4(за 1 сек)
18,4*5=92
Ответ 92 кбайта
Var x,a,b,c,d:real;
begin
writeln('Введите число: '); read(x);
a:=sqr(x);
writeln ('Квадрат этого числа = ',a);
b:=sqrt(x);
writeln ('Корень квадратный = ',b);
c:=cos(x);
d:=sin(x);
writeln ('Синус = ', c, ' | Косинус = ',d);
<span>end.</span>
program c1;
var
i,n:integer;
x:longint;
begin
x:=1;
write('Введите n: ');
readln(n);
for i:=1 to n do
if (i mod 2=1) then x:=x*i;
writeln(x);
end.
4. Условный оператор
Эти три задачи объединяет одно: здесь нельзя просто так составить программу на Паскале, чтобы задача решалась «одним махом» – из-за наличия определенных условий. Поэтому в таких случаях на помощь приходит условный оператор, который распределяет выполнение операторов в зависимости от условий.