Var
S,a:real;
k:integer;
Begin
a:=8;
k:=0;
Repeat
k:=k+1;
S:=S+a;
a:=a*1.1;
Until S>=40;
WriteLn('k = ',k)
End.
Ответ:
Объяснение:
1. - вторая сторона прямоугольника.
2. - формула периметра прямоугольника.
5.
Проверка:
javascript:var x=5,y=25;while(x!=y){if(x>y)x-=y;else y-=x;}alert(x);
Program qwe;
var A:longint;
s:byte;
begin
write('Введите число: ');
readln(A);
s := 0;
A := abs(A);
while A > 0 do
begin
if not odd(A) then
inc(s, A mod 10);
A := A div 10
end;
writeln('Сумма чётных цифр = ', s);
readln
<span>end</span>