Program n1;
var a,c,b,num: integer;
begin
write('введите число: ');
readln(num);
a:= round(num div 100);
c:=round(num mod 10);
b:=round(((num mod 100)-c)/10);
writeln('сотни: ',a);
writeln('десятки: ',b);
writeln('единицы: ',c);
end.
Самая быстрая дорога: из a в d а потом в c
1)60/40=1.5(час)
2)20/20=1 (час)
3)1.5+1=2.5(час)
Ответ:2.5 часов.
З. Ы. Только по грунт. дороге требуется 3 часа(60 км / 20 км/ч = 3 часа)
Жесткие диски, флеш карты, касеты.
Var x, y, count, s: integer;
begin
repeat
if(y = 100) then break;
readln(x);
if(abs(x) > 300) then begin
writeln('<span>Число по модулю не может быть > 300</span>.');
continue
end
else
if(x mod 4 = 0) and (x <> 0) then begin
inc(count);
s := s + x;
end;if(x <> 0) then inc(y);
until(x = 0);
writeln('Среднее арифметическое: ', s / count);
end.
1) var mas:array[1..10] of Integer;
i:integer;
begin
i := mas[1];
mas[1] := mas[6];
mas[6] := i;
<span>end.
Вот как то так
</span>