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

Question

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

Answer 1

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

Comments

а єто точно будет работать в бейсике

---

Конечно нет, это паскаль. В задании где-то что-то сказано про бейсик?

---

а если я сейчас создам ещ' одно такое же  для  бейсика решишь?

---

Сейчас добавлю на бейсике ответ сюда.

---

спс тебе большое

---

Посмотри мой аккаунт ещё один там задачу решить надо тоже бейсик znanija.com/task/17030369