Несколько задачек на Паскале

[ROMA2PVT]

-IV-
правда уже решал её тебе но видно тебе лень разбираться в циклах

Uses
 CRT;
var
i,n,k:integer;
s:longint;
begin
ClrScr;
repeat
readln(n);
until n>0;
k:=0;
i:=1;
s:=1;
repeat
begin
if i=1 then
writeln(1,'^',2,':=',s)
else
begin
s:=s+(2*i-1);
writeln(i,'^',2,':=',s);
end;
inc(i);
end;
until i>n;
readkey
end.

[bwitcher]

Сообщение от Stilet

Показывай и нам Чем мы хуже то?

Так ведь выше написано

[bwitcher]

Сообщение от ROMA2PVT

-IV-
правда уже решал её тебе но видно тебе лень разбираться в циклах

Так ведь запутано как-то. Неужели проще она никак не решается?)) Тут так все запутано, что препод точно прицепится, ибо мы такого не решаем)

[ROMA2PVT]

Мне тупо лень думать.

var
 i,n,k:integer;
 s:longint;
begin
readln(n);
k:=0;
i:=1;
s:=0;
repeat
begin
 s:=s+(2*i-1);
 writeln(i,'^',2,':=',s);
inc(i);
end;
until i>n;
readln;
end.

Вот.Куда уж проще.

[bwitcher]

Сообщение от ROMA2PVT

Мне тупо лень думать

Да, все, спасибо огромное! Все работает

[ROMA2PVT]

пост 24 глянь.

-III-

Uses
 CRT;
var
i,n,k:integer;
s:longint;
begin
ClrScr;
repeat
readln(n);
until (n>1) and (n<9);
i:=2;
repeat
writeln(n,' *',i:2,' :=',i*n:3);
inc(i);
until i>10;
readkey
end.

[bwitcher]

Что-то совсем не догнал, если честно. Подредактировать не надо?)) Таблица умножения ведь должна быть полностью

[ROMA2PVT]

читать умеешь?

3) Распечатать в столбик таблицу умножения на число n (число n вводится с клавиатуры; 1 < n < 9)

[bwitcher]

Хорошо, я туплю. Но зачем тебе переменные s и k? Зачем в проге Uses CRT и ClrScr? И что такое вообще Readkey? Поясни, пжл...

[ROMA2PVT]

var
 i,n:integer;
begin
repeat
 readln(n);
until (n>1) and (n<9);
i:=2;
repeat
 writeln(n,' *',i:2,' :=',i*n:3);
inc(i);
until i>10;
readln
end.