Войти

Показать полную графическую версию : [решено] Не принимает задачу


Светлана96
19-02-2012, 12:50
Даны два целых числа A и B (при этом A≤B). Выведите все числа от A до B включительно.

Program z3528;
var a,b,i:integer;
begin
read(a,b);
for i:=a to b do
write(i);
end.


Как сделать чтоб числа через пробел выводились?

Hector
19-02-2012, 13:47
исправить

for i:=a to b do
write(i);

на

for i:=a to b do
begin
write(i);
write(' '); // в общем надо добавить вывод пустого символа в теле цикла
end;

LilLoco
19-02-2012, 13:54
Светлана96, вы же уже создавали тему, где нужно было тоже выводить через пробел, вам уже ответили.
Вы принципиально не хотите ни в чем разбираться?

Hector, можно и за один write
write(i + ' ');
меньше строк кода

Hector
19-02-2012, 13:59
LilLoco, да понятно, не смог вспомнить правильный синтаксис, pascal давно был ;)




© OSzone.net 2001-2012