//прога на Pascal`e
var
x: real;
function f (a:real):real;
begin
f:= (sqr(cos(a)) - 5) / (abs(a) + 3);
end;
begin
write ('Введите x: ');
readln (x);
write ('A = ', f(x));
end.
Var
n, cnt: integer;
begin
write('Введите число: ');
read(n);
repeat
inc(cnt);
n := n div 10;
until n = 0;
writeln('Количество цифр в числе: ', cnt);
end.
1. Купить путевку на море - собрать вещи - поехать на море - разместиться в отеле - купаться, загорать, отдыхать, развлекаться - собрать вещи - уехать домой
2. Приехать в зоопарк - купить билет - зайти в зоопарк - ходить по зоопарку и смотреть на животных - выйти из зоопарка - вернуться домой
Var
input, output: text;
x,k: integer;
begin
assign(input,'input.txt');
assign(output,'output.txt');
reset(input);
rewrite(output);
k := 0;
read(input, x);
while x <> 0 do
begin
k := k + 1;
read(input, x)
end;
write(output, k);
close(input);
close(output)
end.
стоит парень обливается кифиром подходит к нему другой парень спрашивает что делаешь тот говорит играю в шахматы 2 спрашивает можно с тобой тот согласился. подходит 3 парень спрашивает что делаете те отвечают играем в шахматы 3 спрашивает можно с вами? они согласились. играют втроем подходит 4 парень спрашивает вы играете в шахматы те отвечают да как ты понял он отвечает да вон велосипед за забором стоит
