Ответ:
program test01;
var a, b, rezult: integer;
begin
a:=6;
b:=3;
rezult:= a div b;
writeln ('rezult = ', rezult);
end.
Объяснение:
5-тиичная система исчисления, тк 33+124+131=343
берем последнии цифры 3+4+1=13 , в этой системе исчисления 1+4 это переход в следующий разряд. 3 записываем, а 1 запоминаем. Следующие цифры 3+2+3 и +1(которую запомнили)=14. Итд
Вот решение подобной задачи на языке паскаль.
Program abc;
var b,c : string;begina:=0;Readln(b);while a<3 dobeginReadln(c);If c=b then beginWriteln('доступ резрешен');endelse begina:=a+1;; end;end;Writeln('вы не угадали');end.
var
a,b,c: integer;
begin
readln(a,b,c);
writeln(a+b+c)
end.
program raf105;
var abc,a,b,c:integer;
begin
write('Введите трёхзначное число: ');
readln(abc);
a:= abc div 100;
c:= abc mod 10;
b:= (a+c) mod 10;
abc:= a*100 + b*10 + c;
writeln('Вывод: ',abc);
end.
<em><u>Язык PascalABC</u></em>