Var a:array[1..3,1..3] of integer;
i,j:integer;
begin
randomize;
for i:=1 to 3 do begin
writeln;
for j:=1 to 3 do begin
a[i,j]:=random(10)+15;
if i=j then a[i,j]:=5;
write(a[i,j],' ');
end;
end;
end.
Ученики делают домашние задания. Учителя их проверяют.
Домашнее задание по геометрии было сложным. Далеко не все ученики выполнили его.
Вова любит алгебру и геометрию.
Ленивая Маша списала у отличника.)))
как-то так))
<span>Кодированием числовой информации:называется совокупность приемов наименования и записи чисел.</span>
Var
t,d,S:real;
begin
write('Введите значение t=');read(t);
write('Введите значение d=');read(d);
S:=Pi/4*(sqr(d+t*2)-sqr(d));
writeln('Площадь кольца=',S:5:2);
end.
Var a, b, c, d, e : longint;
begin
assign(input, 'D:\Vanya\School\Pascal\Input\input.txt'); reset(input); assign(output, 'D:\Vanya\School\Pascal\Output\output.txt'); rewrite(output); read(a,b,c,d,e); write(a * b *c*d*e);
end.<span>
</span>