Алг
нач
вещ а,б,с,мин
вывод "Введите результат первого "
ввод а
мин:=а
вывод "Введите результат второго "
ввод б
если мин>б то мин:=б все
вывод "Введите результат третьего "
ввод с
если мин>с то мин:=с все
вывод "Результат победителя заплыва: ",мин
кон<span>
</span>
Половина пруда на 9 день. т.к каждый день *2
9день это половина полного пруда.
2 в 9 степени это 512 листьев
если степени ещё не проходили , просто по умножай на 2
2 4 8.... 128 256 512
Ответ на рисунке. Ответ на рисунке.
Var
A:real;
Begin
Write('Введите число: ');ReadLn(A);
if (-72<=A)and(A<=14) then WriteLn('Принадлежит')
else WriteLn('Не принадлежит')
End.
Program prog;
uses crt;
var a:array[1..201] of integer;
s,i: integer;
begin
clrscr;
for i:=1 to 201 do
a[i]:=i+100;
for i:=1 to 201 do begin
if a[i] mod 2=1 then begin
s:=s+a[i];
write(a[i],' ');
end;
end;
writeln; writeln;
writeln('Сумма s = ', s);
end.