написать программу в pascalABC. Div и Mod

Ksenua69 Ksenua69    3   16.03.2020 21:53    0

Ответы
mashechca mashechca  05.08.2020 17:25

Program s1;

var kb,by:integer;

begin

writeln('1 kb = 1000 bytes');

writeln('Введите количество байт');

readln(by);

kb:=by div 1000;

writeln(by,' bytes , будет = ',kb,' Kb');

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика