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

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

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

Question

Информатика

Адина

7 декабря, 05:47

Помогите по программе 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.