BEGIN
INT I, SUM;
/* ЧИСЛО МОНЕТОК */
SUM := 0;
FOR (I := 0; I <= 10000; I++)
BEGIN
SUM := SUM + I;
END;
/* РЕЗУЛЬТАТ */
PRINTLN ('ЧИСЛО МОНЕТОК: ' + STR(SUM));
END
program zadacha;
Var x,a,b :real;
begin
readln (a,b);
if a<>0 then x:=-b/a;
Writeln ('x= ',x);
end.
Разделим исходный код на группы по 3 разряда.
1011012 = 101 101 2
Затем заменяем каждую группу на код из таблицы.
Двоичная СС Восьмеричная СС
000 0
001 1
010 2
011 3
100 4
101 5
110 6
111 7
Получаем число:
101 101^2 = 55^8
//прога на Pascal`e {бдок-схема в файле}
var
x: int64;
begin
write ('Введите целое число: ');
readln (x);
if x<=38 then write ('Салют') else write ('y = 5x-38 = ', 5*x-38);
end.