Опубликовано 08.06.2017 по предмету Информатика от Гость >> <<

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

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

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

Ответ оставил Гость

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.