Достать пачку с кашей
вскрыть её
взять ковш
поставить на плиту
вскепитить
посолить
выложить кашу в плошку
надеюсь помогла
Позволяет найти количество информации которое содержится в выбранной сообщении ( I ) , i - это информационный вес символа, k - это число символов в сообщении
Program plov ;
var day : integer ;
var km , sum : real ;
begin
day := 1 ;
km := 3 ;
sum := km ;
while ( sum <= 30 ) do begin
day := day + 1 ;
km := km * 1.1 ;
sum := sum + km ;
end ;
writeln ( 'day=' , day ) ;
<span>end.</span>
Var i:integer;
begin
i:=1;
repeat
writeln(i, i*i:4);
i+=1;
until i=16;
end.