Var i,p:integer; beginp:=1;for i:= 20 to 50 doif(i mod 5 = 0) then p:=p*i;writeln('Произведение чисел кратных 5: 'p);end.
Ответ:
Var a,b,x,f:integer;
Begin
Repeat
Read(a,x);
B:=random(7)-3;
Writeln('y=', sqr(a)+b*x);
Writeln('Ещё одно вычисление? Да(1) нет(0)');
Read(f);
Until f=0;
End.
Объяснение:
Жил-был Ослик и не было у него друзей, потому что он
был психопатом, мизантропом и вообще сыном Ослицы. Долгими осенними вечерами (
а в жизни ослика была только осень) он читал книгу «Химия прочее<span>» и мечтал кого- нибудь победить
или просто что бы от него все отъ-сь (менты, участковый психиатр,
соседи-слонята и соседи ежата). Однажды ослику приснился сон, что он вовсе не
ослик, а просто проекция пятна на плоскости. В то утро ослик проснулся
совершенно другим осликом. Мир был наполнен красками и пеньем птиц и солнце
светило на маленький столик у кроватки ослика на котором мог бы стоять
компьютер, если бы он у ослика был. </span>
Подсчитаем количество цифр на каждом входе/выходе, и заметим, что на выходе цифр всегда ровно вдвое больше, чем на входе. Можно сделать предположение, что каждая цифра на входе шифруется комбинацией из двух цифр на выходе.
Проверяем наше предположение:
2 -> 10 (первый вход). То же самое верно для 3-го и 4-го входов, и для последней цифры 6-го.
Проверяя другие числа, убедимся, что предположение верное.
Значит, чёрный ящик шифрует числа по схеме:
0 -> 00
1 -> 01
2 -> 10
3 -> 11
4 -> 02
5 -> 20
6 -> 22
7 -> 03
8 -> 30
9 -> 33
const
m = 2;
n = 3;
var
A, B, C: array [0..m - 1,0..n - 1] of real;
Ct: array [0..n - 1, 0..m - 1] of real;
i, j: Integer;
begin
// заполнение матрицы С среднеарифметическими значениями А и В
for i := 0 to m - 1 do
for j := 0 to n - 1 do
C [i, j] := (A [i, j] + B [i, j]) / 2;
// транспонирование С в Ct
for i := 0 to m - 1 do
for j := 0 to n - 1 do
Ct [j, i] := C [i, j];
end;