Найдите ошибку в паскале почему не робит)легко должно быть

[Айбулат228]

var a,b,c,i,i1,i2,i3:integer;
begin
read(a,b);
if (a>b) then
begin;
    с:=b;
    b:=a;
    a:=c;
end;
    for i:=a to b do
begin
writeln(i,' ',i*i,' ',i*i*i);
end;
readln;
end.

[NetSpace]

у вас не хватает трёх формул после end; вы из задания почему выкинули эти формулы? вот и не считает.
кстати, и само задание покажите людям.

[Айбулат228]

задание но нам сказали что если а боьше чем б поменять местами

[Aleksandr H.]

не смутило?

Сообщение от Айбулат228

....
begin;
...

а так то твой код вроде "4" решает норм

5 как-то так можно сделать

c := 1;
for i:=1 to 10 do
    begin
        c := c + i - 1;
        writeln(c,' ',sqr(c),' ',sqr(c)*c);
    end;

[Айбулат228]

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

[digitalis]

Что тут может не работать? Нормальная прога. Лишнее выбросить.

var a,b,i:integer;
begin
  read(a,b);
  if (a>b) then
  begin
    i:=b;
    b:=a;
    a:=i
  end;
  for i:=a to b do writeln(i,' ',i*i,' ',i*i*i);
  readln;
end.