Const
n=5;
var
a:array[1..n,1..n] of integer;
i,j:integer;
begin
//генератор случайных чисел. Диапазон от 1 до 10.
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=random(10)+1;
write(a[i,j]," ");
end;
writeln();
end;
//Проверка условия и переприсвоение, если верно.
for i:=1 to n do
for j:=1 to n do
begin
if ((<span>(i+j) mod 2)=0) then
</span> a[i,j]:=a[1,2];
end;
//Вывод полученного массива.
for i:=1 to n do
begin
for j:=1 to n do
begin
write(a[i,j]," ");
end;
writeln();
end;
//Ожидание.
readln();
end.
Program P1;
var l,r,a,b:real;
begin
readln(l,a,b);
r:=l/(2*pi);
if a*a+b*b<r*r then writeln('YES')
else writeln('NO');
end.
Пример:
20 3 4
NO
1)
Program n1;
var n,sum,i: integer;
begin
readln(n);
sum:=0;
for i:=2 to n do if i mod 2=0 then sum:=sum+i;
write(sum);
end.
2)
Program n2;
var i,sum: integer;
begin
sum:=0;
for i:=10 to 99 do sum:=sum+i;
write(sum);
end.
Var
a, b, n: integer;
begin
read(n);
if n<=7 then exit;
for a := 1 to n do
for b := 1 to n do
if 3 * a + 5 * b = n then
writeln('3 * ', a, ' + 5 * ', b, ' = ', n);
end.