Где ошибка

@maksim0308 · Регистрация: 10.07.2011

Студворк — интернет-сервис помощи студентам

Ввести m, n. Вывести квадраты чисел от m до n включительно.

Pascal

uses crt;
var a:array[1..100] of integer;
m,n,i:integer
 
BEGIN
 clrscr;
  write('Введите два числа через пробел'); read(m,n);
   for i:=m to n do
    begin
    a[i]:=i*i;
    end;
 
   begin
    for i:=m to n do
    write(a[i]:3);
   end;
 readkey;
END.

@FrenchOpen · 22.07.2011, 14:13

элементы массива у вас нумеруются от 1 до 100, а выводите вы от m до n, хотя надо от 1 до (n-m+1).
а вообще массив тут совершенно не нужен:

Pascal

uses crt;
m,n,i:integer
 
BEGIN
 clrscr;
  write('Введите два числа через пробел'); read(m,n);
  for i:=m to n do
      writeln((i*i):3);
  readkey;
END.

@maksim0308 · 22.07.2011, 14:21 **[ТС]**

Программа не работает, Fatal: Syntax error ';' expected but 'BEGIN' found

@Step_UA · 22.07.2011, 14:45

ну так поставьте после integer - ';'

@FrenchOpen · 22.07.2011, 14:47

и var еще перед m,n,i:integer; (что-то я его куда-то случайно потерял

, сори)

@maksim0308 · 22.07.2011, 15:57 **[ТС]**

То что ты потерял я дописал, там мой косяк был, ща все нормально)

@maksim0308 13 / 13 / 7 Регистрация: 10.07.2011 Сообщений: 104
	22.07.2011, 14:21 [ТС]	3
	Программа не работает, Fatal: Syntax error ';' expected but 'BEGIN' found 0

@Step_UA 1589 / 662 / 225 Регистрация: 09.06.2011 Сообщений: 1,334
	22.07.2011, 14:45	4
	ну так поставьте после integer - ';' 0

@FrenchOpen 13 / 13 / 4 Регистрация: 08.12.2010 Сообщений: 42
	22.07.2011, 14:47	5
	и var еще перед m,n,i:integer; (что-то я его куда-то случайно потерял , сори) 0

@maksim0308 13 / 13 / 7 Регистрация: 10.07.2011 Сообщений: 104
	22.07.2011, 15:57 [ТС]	6
	То что ты потерял я дописал, там мой косяк был, ща все нормально) 0

Опции темы