Question

Переведите с Паскаля на кумир плз var Chislo: Integer; n:byte; begin write('Число: '); read(Chislo); n:=Chislo mod 10; write('Последняя цифра куба='); case n of 2:write(8); 3:writeln(7); 7:write(3); 8:write(2); else write(n); end; end.

Answer 1

Ответ:Ммм... Паскаль) Для этого сайты есть.

Объяснение:

Answer 2

Конечно! Вот ваш код на языке Кумир:

pascalCopy code
var
  Chislo: Integer;
  n: byte;

begin
  write('Число: ');
  read(Chislo);
  n := Chislo mod 10;
  write('Последняя цифра куба=');

  case n of
    2: write(8);
    3: writeln(7);
    7: write(3);
    8: write(2);
  else
    write(n);
  end;
end.

А вот эквивалентный код на Кумир:

pascalCopy code
var
  Chislo: @int;
  n: @byte;

begin
  Write('Число: ');
  Read(Chislo);
  n := Chislo % 10;
  Write('Последняя цифра куба=');

  Case n Of
    2: Write(8);
    3: Write(7); WriteLn;
    7: Write(3);
    8: Write(2);
  Else
    Write(n);
  End;
end.

Код на обоих языках делает одно и то же: считывает число, находит последнюю цифру куба этого числа и выводит её.