Var a:array[1..15] of integer; n:integer; i,k:real;
begin
writeln('введите начальное значение');
readln(i);
writeln('введите шаг изменения');
readln(k);
writeln('введите кол-во элементов');
readln(n);
while n<>0 do begin
writeln(i,' драхм = ',i*1.77185,'г = ',i*0.06249,' унций');
n:=n-1;
i:=i+k;
end;
end.
источник канал связи приёмник
учебник учащийся ученики
журнал друг окружающие люди
расписание водитель пассажиры
светофор цвета водители и пешеходы
Ни одно из множеств K и U не является подмножеством другого.
S = V * t , исходя из этого V = S / t - в этом была ошибка.
А предложение для улучшения - ну, не знаю, ускорить вывод скорости движения ученика что ли,не 2 секунды,а 1 секунду.
1)Следовательно - шапку носят на голове.
2) Следовательно - оно делится само на себя и на единицу.
3) Следовательно - крокодил не птица.