Question

Составить программу выполняя которую машина выведет на экран все целые числа от а до б
Program primer
war a: inter;
begin
a: = b

Answer 1

program primer;
var 
   a,b,i:integer;
begin
   readln(a,b);
   for i:=a to b do 
      write(i,' ');
end.

Answer 2

program z1;
var  a, b, c: integer;
begin 
 writeln('Введите начало диапазона:'); 
 readln(a); 
 writeln('Введите конец диапазона:'); 
readln(b); 
 while a < b do 
 begin   
inc(a); 
   Writeln(a);
  end;
end.

Answer 3

Кто вы, почему вы не ставите вообще пробелов? Это же не возможно читать, а когда у тебя программа в 100 строк, в которой вложенные друг в друга циклы, как ты это читать будешь?

Answer 4

уже отредактировал,криво скопировалось

Answer 5

Я про то, что отступов нет у строк. Просто совет - лучше делай их.

Answer 6

А это правильно?