Program M;
Var y,x:integer;
Begin
writeln('vvedite znachenie x');
readln(x);
x:=0;
while x<=7 do
y:=x*x;
x:=x+1;
writeln('vyvod funksii y=',y);
readln(y);
End.
У меня вон что получилось, но все равно не сходиться, я не знаю куда вводить по 8 значениям, чтоб потом программа посчитала????помогите пожалуйста.
Замечание: |
irina, не стоит дублировать темы. Повторы удалены. Модератор. |