Составить программу перевода кб в байты от 1 до 10кб с шагом 1

Alisaalpatik Alisaalpatik    2   18.07.2019 21:00    2

Ответы
zybikrybik zybikrybik  17.04.2020 03:45
Var
i: integer;
begin
for i:=1 to 10 do
writeln(i, ' Кбайт = ', i*1024, ' байт');
end.

Бейсик

DIM I AS INTEGER;
FOR  I:=1 TO 10
PRINT I*1024
NEXT I
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика