Ответ:
Основание системы счисления (положительное) должно быть больше, чем любая из цифр, из которых состоит число в этой системе счисления.
Таким образом, неверно записаны ,
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
V=331+0.6t=331+0.6*37.4=331+22.44=353.44 м/с