Program n_1;
var a, b: integer;
begin
randomize;
a:=random (1000) + 1;
while a <> b do begin
write ('Введи число!!!');
readln (b);
if b > a then writeln ('Перебор!!!')
else if b < a then writeln ('Маловато будет...')
end;
writeln ('Молодец! Угадал!');
readln();
end.
Конкретный вариант:
uses crt;
var x:<em>real</em>;
begin
x:=21.17;
writeln((5*x+0.36)/(0.77+sqr(x)):3:3);
<span>end.
</span> Более универсальный:
uses crt;
var x:<em>real</em>;
function y(a:<em>real</em>):<em>real;</em>
begin
writeln(((5*x+0.36)/(0.77+sqr(x))):3:3);
end;
begin
read(x);
y(x);
end.
Апельсин не имеет звука только если брызгает только не знаю звук это или нет
Аромат цитруса
Кожа гладкая как кожа, то есть шершавая
Пылесос
Большой, механический
Шумит
Есть запах перегревшего вентилятора, пыли
не имеет вкуса, так как это электроприбор
гладкий корпус
Зашифрованное слово.
Спокойствие, только спокойствие.