Регистрация
Drocket
23.11.2020 10:46
Информатика
Есть ответ 👍

Написать программу на языке программирования в среде разработки Pascal. Ввести три числа, если они отрицательные(каждое, но не одновременно) , то напечатать их модули, иначе их квадраты​

279
320
Посмотреть ответы 1

Ответы на вопрос:

Lena111115
Lena111115
4,7(20 оценок)
Var  d, n: longint;       h: string;   begin      write('n? ');       readln(n);       repeat          d : = n mod 16;           if d < 10 then              h : = chr(ord('0') + d) + h          else              h : = chr(ord('a') - 10 + d) + h;           n : = n div 16;       until n = 0;       writeln(h, 'h');         end

Популярно: Информатика