Помогите по программе paskal:

1. дано целое число. напишите программу которая уменьшает на 2 модуль этого числа и выводит на экран монитора результат

2. дано целое число. напишите, программу которая выводит на экран последнюю цифру данного числа, затем возводит ее в квадрат и выводит на экран монитора результат

Question

Информатика

Ксюта

20 декабря, 16:33

Помогите по программе paskal:

1. дано целое число. напишите программу которая уменьшает на 2 модуль этого числа и выводит на экран монитора результат

2. дано целое число. напишите, программу которая выводит на экран последнюю цифру данного числа, затем возводит ее в квадрат и выводит на экран монитора результат

+4

Ответы (1)

Знаешь ответ?

Филипка · Answer 1

1)

program test;

var number: integer;

begin

write ('Enter the number: ');

readln (number);

number:=abs (number) - 2;

writeln (number);

readln;

end.

2)

program test;

var number, temp: integer;

begin

write ('Enter the number: ');

readln (number);

temp:=number mod 10;

writeln (temp, '^2=', temp*temp);

readln;

end.