Var a:string;i,s:integer;
begin
read (a);
for i:=1 to length(s) do
begin
s:=s+i;
write (s);
end;
end.
Вода, лед и пар. Имеют одинаковый состав , но изменяются структуры строения.
Программа находит значение переменной
s:=s+15
for k:=1 to 6 - 6 шагов
при каждом шаге к значению прибавляется 15,за 6 шагов прибавится 15*6=90
это число и выводится программой
Ответ: 90