var x: integer;
begin
write('Введите число: ');
readln(x);
write(x div 10 - x mod 10);
<span>end. </span>
Объяснение:
1060 значков ))
это если они будут среднего размера
В 1 мегабайте 1024 килобайт 4527/1024=4.4208984...=4.420.Следовательно ответ под В правильный
1024000 бит сек * 5 сек = 5120000 бит вес файла (инф. объём).
Program z1;Var Sum, a, i:integer;BeginSum:=0;5for i:=1 to 10 do begin read(a); if (a>=5) then Sum:=Sum+a; end;writeln(Sum);end.