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

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

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

Question

Информатика

Адина

2 июня, 01:42

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

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

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

+3

Ответы (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.