Где тут ошибка program algorithm; var ivan, gor, otvet1 : integer; begin writeln('2*2=? '); readln(otvet1); if otvet1=6 then begin gor : = random(6); ivan : = random(6); if ivan > gor then begin readln (стоит белое летом в огороде морозит); readln(х); if х= 'замок' then begin writeln('победа'); end else begin writeln('смэрть'); end; end else begin writeln('смэрть'); end; end else begin writeln('смэрть'); end; end.

Хорошая программа и условие задачи отличное)

Объяви x с типом данных string ( x: string; ) и измени в строке "ReadLn (стоит белое летом в огороде морозит)" на "WriteLn('стоит белое летом в огороде морозит')"

ответ 1:

Program zadacha;

var

i,n:integer;

begin

 writeln ('Введите число: '); readln(n);

for i:=1 to n do  write(n-i+1);

end.

ответ 2:

Program zadacha;

var

i,a,b:integer;

begin

 writeln ('Введите A: '); readln(a);

 writeln ('Введите B: '); readln(b);

for i:=a to b do

  if (i mod 2 <> 0) then writeln(i);

end.

ответ 3:

Program zadacha;

var

i,a,b,sum:integer;

begin

 writeln ('Введите A: '); readln(a);

 writeln ('Введите B: '); readln(b);

for i:=a to b do

  if (i mod 10 = 7) then begin sum:=sum+i; end;  

  writeln('Результат: ',sum);

end.

ответ: c++

#include <iostream>

using namespace std;

 

int main()

{

   const int N = 10;

   int A[N] = { 14, 25, 13, 30, 76, 58, 32, 11, 41, 97 };

   for (int i = 0; i < N; i++)

   {

       for (int j = N - 1; j > i; j--)

       {

           if (A[j] % 10 < A[j-1] % 10)

           {

               swap(A[j-1], A[j]);

           }

       }

   }

   cout << "The array after sorting:" << endl;

   for (int i = 0; i < N; i++)

   {

       cout << A[i] << " ";

   }

   return 0;

}