Var a,b,c,x:integer;
begin
x:=random (899) +100;
writeln('x= ', x);
a:= x div 100; {первая цифра}
b:=(x mod 100) div 10; {вторая цифра}
c:= x mod 10; {третья цифра}
writeln(a,',',b,',',c);
end.
A) y = (1 + x*EXP(-x)) / (2 + КОРЕНЬ(x^2 + (SIN(x))^2))
g) y = ЕСЛИ(x<=0; КОРЕНЬ(1 + ABS(x)); (1 + 3*x) / (2 + (1+x)^(1/3)))
Билл Геец - общепринятое но ответ сильно зависит от трактовки понятия "компьютер". Первый цифровой компьютер создал немецкий инженер Конрад Цузе в 1938 году
Var a: ineger;
begin
write('Введите возраст: ');
read(a);
if a>=18 then writeln('Это ребенок');
else writeln('Это взрослый');
end.