Предмет:
Другие предметыАвтор:
brennenwalterАвтор:
banjocookАвтор:
elsiedhvyАвтор:
claudeАвтор:
star5Автор:
felixpagevar
x, y:real;
day:integer;
begin
readln(x);
readln(y);
day := 1;
while x < y do
begin
x := x * 1.1;
day := day + 1;
end;
writeln(day);
end.
Автор:
tadeoДобавить свой ответ
Предмет:
ЛитератураАвтор:
con0tlmОтветов:
Смотреть
Предмет:
Русский языкАвтор:
brandonsanchezОтветов:
Смотреть
Предмет:
МатематикаАвтор:
velezОтветов:
Смотреть
Предмет:
Английский языкАвтор:
willisОтветов:
Смотреть