Program PainNagato;
uses crt;
const n=3;
var i,j:integer;
a:array[1..n] of integer;
b:array[1..n,1..n] of integer;
begin
writeln('*** alphaues is thinking... ***');
writeln('*** OK ***');
for i:=1 to n do
begin
write('Введите ',i,'-е число ');
readln(a[i]);
end;
writeln('Результат: ');
for i:=1 to n do
begin
for j:=1 to n do
begin
b[i,j]:=a[i]-3*a[j];
write(b[i,j]:5);
end;
writeln;
end;
end.
Алфавит системы счисления будет иметь вид
0 1 2 3 4 5 6 7 8 9 A B C D E
следующие 30 чисел
10 11 12 13 14 15 16 17 18 19 1A 1B 1C 1D 1E 20 21 22 23 24 25 26 27 28 29 2A 2B 2C 2D 2E
1 вариант по векторам:
использовать Чертежник
алг
нач
сместиться на вектор (1,10)
опустить перо
сместиться на вектор (3,-5)
сместиться на вектор (1.6,0)
поднять перо
сместиться на вектор (1.4,5)
опустить перо
сместиться на вектор (-2.5,-9)
сместиться на вектор (-3.5,0)
поднять перо
сместиться на вектор (7,0)
опустить перо
сместиться на вектор (0,9)
сместиться на вектор (4,0)
сместиться на вектор (1,-1)
сместиться на вектор (0,-3)
сместиться на вектор (-1,-1)
сместиться на вектор (-4,0)
поднять перо
сместиться на вектор (6,-4)
опустить перо
сместиться на вектор (3.5,9)
сместиться на вектор (3.5,-9)
поднять перо
сместиться на вектор (-5.5,4)
опустить перо
сместиться на вектор (4,0)
поднять перо
сместиться в точку (0,0)
кон
2 вариант - написать:
использовать Чертежник
алг
нач
вещ n=55
лит m="УРА"
написать(n, m)
кон
Var a:array[1..10] of integer;
i,k:integer;
begin
writeln('vedite 10 chisel masiva');
k:=0;
for i:=1 to 10 do
read(a[i]);
for i:=1 to 10 do begin
if (a[i]=0) then k:=k+1;
end;
writeln('kolichestvo nuley ',k);
writeln('massiv v obratnom porydke');
for i:=10 downto 1 do
write(' ',a[i]);
end.