паскаль
Сейчас все сделаю!
Блин, я не вижу на листе условие... срезано

Ответы и объяснения

2013-12-25T11:27:52+00:00
Program asd;
USES crt;
Const m=10;
var s,x:real; n,i:integer;
BEGIN
clrscr;
Writeln('Vvedite chislo: ');
Readln(x);
S:=1;
For i:=1 to m do
begin
s:=x*sqr(i);
Writeln(i,' ',S);
end;
END.

Перечислимые
Строковые
Массив
Множество
Диапазоны