Program Task;
Var i, N: Integer;
Begin
Write('N = ');
ReadLn(N);
For i := 1 To N Do
Write(i, ' ');
ReadLn;
<span>End.</span>
while условие выполнения цикла do
begin
{Операторы}
end;
Ответ: 4 ученика любят все 3 вида спорта.
Решение: 35=18+12+24-8-5-10-х
х=35-31
х=4
<em>1)</em> <em>Домашняя библиотека
</em>Номер - <em>счётчик</em>
Автор, Название - <em>текстовый</em>
Год, Полка - <em>числовой</em>
<em>2) </em><em>Погода
</em>День, Температура, Давление, Влажность - <em>числовой</em>
Осадки - <em>текстовый</em>
<em>3) </em><em></em><em>Школы
</em>Город, Директор, Адрес - <em>текстовый</em>
Номер, Телефон - <em>числовой</em>
