Из каких систем переводить?
Var C2, C1: longint;
a, b, n: integer;
begin
readln(a, b, n);
b := b + a * 100;
C1 := b * n;
C2 := C1 mod 100;
C1 := C1 div 100;
writeln(C1, ',', C2);
<span>end.
Вот так =)</span>
Память находится в компьютере.
Солнце часть солнечной системы .
Автомобиль дороже велосипеда.
Колесо часть автомобиля.
Ответ:
42 (число 11), 99 (число 30), 10050 (число 55)
Объяснение:
Написал код по этому алгоритму и посмотрел, какие из представленных чисел получаются в итоге.
DECLARE
b NUMBER;
c NUMBER;
d NUMBER;
e NUMBER;
BEGIN
FOR a IN 10..99 LOOP
IF length(a) = 2 THEN
b := power(substr(a, 1, 1),2); -- отрезаем первый разряд и возводим в квадрат
c := power(substr(a, 2, 1),2); -- отрезаем второй разряд и возводим в квадрат
d := b + c;
e := power(substr(a, 1, 1) + substr(a, 2, 1),2);
IF d > e THEN dbms_output.put_line(d || e);
ELSE dbms_output.put_line(e || d);
END IF;
END IF;
END LOOP;
END;