1).Из 3 бочонка перелить во 2й 3 литра.
2).Из 1 бочонка перелить 1 литр в 3й.
Var a: real;
begin
write ('Введите Вашу температуру: ');
read(a); //Вещественное число вводится через точку
if (a>=36) and (a<=37) then writeln ('Вы здоровы!') else writeln ('Вы больны!');
end.
// PascalABC.NET 3.0, сборка 1073
var
day,nwords:integer;
begin
day:=1; nwords:=4;
while nwords<50 do begin Inc(day); nwords:=nwords+4 end;
Writeln('50 слов будет выучено на ',day,'-й день')
end.
<em><u>Тестовое решение:</u></em>
50 слов будет выучено на 13-й день