Или так: это проще, если вы не проходили условие.
Var i:integer;
Begin
write('Четные числа: ');
for i:=2 to 99 do begin
write(i,' ');
i:=i+1;
end;
End.
3200 Клб или 3.2 гб вот так вот
Ответ:б и г
Объяснение: я считаю так тошто во 2 строчке 2 ячейки закрашены
Const
cost_1 = 10;
cost_pack = 90;
var
m: integer;
begin
readln(m);
writeln('Блоков: ', m div cost_pack);
writeln('Дисков: ', (m mod cost_pack) div cost_1);
end.