Var x,s:integer;
begin
readln(x);readln(s);
while x<>5 do begin
s:=x;
x:=x+1;
s:=s+x;
end;
writeln(s);writeln(x);
end.
Если будут неправильно то попросите меня исправить
27.Чашки: чашка "а", чашка "b", чашка "с"
Чайник
начало
взять чашку
Янту не сказали, какую из чашек взять, поэтому он "завис".
28.Брюндик существо жёлтого цвета;большой живот;много ест.
Хрюндик существо розового цвета;хобот;обливается водой.
Крюндик существо зелёного цвета;хвостик;махать хвостиком.
Вообще-то это геометрия, класс 7й где-то.
С помощью чертежа можно выяснить, что углы в 45 градусов
Var n,S,k:integer;
Begin
Write('n = ');ReadLn(n);
S:=0;
k:=0;
While n > 0 do
Begin
S:=S+n mod 10;
k:=k+1;
n:=n div 10
End;
WriteLn(k/S);
End.
Var
x,y:real;
begin
x:=2.509;
y:=(exp(3*ln(abs(x-3)))-5*x)/(sqr(x+2)+exp(ln(x)/5))*exp(3*ln(x+sqr(x)));
Writeln(y)
end.
<em><u>Результат выполнения программы:</u></em>
-393.821568095705