program
zadacha;
var
x,y,a,b,h:integer;
begin
writeln('vvedite
tri chisla');
readln(a,b,h);
x:=a;
<span>write('x y');</span>
writeln();
while
x<=b do begin
y:=1-5*x+sqr(x)*x;
writeln(x,
' ',y);
x:=x+h;
end;
end.
program krug;
var r:real;
begin
write('введите радиус: ');
readln(r);
writeln('С=',2*3.14*r);
writeln('S=',3.14*r*r);
readln;
end.
кажись так
Расширение первого файла третьей буквой может иметь только символ С, а во втором случае абсолютно любой и необязательно один. Поэтому нельзя сказать, что приведенные записи одинаковые и найдут одинаковые файлы
Var a,b:array of real;
i,n:integer;
begin
readln(n);
setlength(a,n);
setlength(b,n);
for i:=0 to n-1 do begin
read(a[i]);
b[i]:=a[i]/(i+1);
end;
for i:=0 to n-1 do
write(b[i],' ');
<span>end.</span>
Основные области: Компьютерная инженерия, моделирование, разработка игр.
Динамическое отображение