Var k,ans:integer;
begin
k:=0;
write('Пробежишь кружочек? (1-да, 0-нет) ');
readln(ans);
while ans=1 do
begin
k:=k+1;
write('Пробежишь ещё кружочек? (1-да, 0-нет) ');
readln(ans);
end;
writeln('k = ',k);
end.
Пример:
Пробежишь кружочек? (1-да, 0-нет) 1
Пробежишь ещё кружочек? (1-да, 0-нет) 1
Пробежишь ещё кружочек? (1-да, 0-нет) 1
Пробежишь ещё кружочек? (1-да, 0-нет) 0
k = 3
в первой строке, после program нужно, чтобы присутствовал идентификатор
1)Олег скопировал рисунок, Игорь скопировал текстовый файл, а Юля- аудиофайл.
2) на букву В.
Без примеров:
абсолютные - на другой УРЛ
относительные - внутри страницы
смешанные - надо подумать логически
Попугай: голова , перо кВ попугай туловище хвост крило