Var i,k,s:integer; begin k:=0; s:=0; i:=7; Writeln('Числа на интервале [7;100], кратные 7:'); while i<=100 do begin Write(i,' '); s:=s+i; Inc(k); i:=i+7 end; Writeln; Writeln('Сумма этих чисел равна ',s,', количество равно ',k); end.
Результат выполнения программы Числа на интервале [7;100], кратные 7: 7 14 21 28 35 42 49 56 63 70 77 84 91 98 Сумма этих чисел равна 735, количество равно 14
Пассажирский ИЛИ Белорусский То есть подходят записи, в которых указан пассажирский поезд, или в которых указан вокзал "Белорусский" Подходят 6, 7, 9 и 10 строки таблицы, ответ 4.