Написать программы, которые определяют: - правда ли, что последняя цифра введенного числа кратна первой; - правда ли, что сумма первой и последней цифр кратна 2; - правда ли, что третья справа цифра равна 5 или 0; - правда ли, что само число отрицательное; отработайте программы на паскале с компьютера

1)  на паскале: если число целое, то var a : integer; label transfer; begin readln(a); last : =  a mod 10; n : = 999 for counter = 1 to n do   if ((a div 10) < 10) and ((a div 10) > 0)        begin       first : = a div 10;       goto transfer;   else       a : = a div 10; transfer: if (last mod first = 0) then written('true')                                     else written('false'); readln(); end. если что-то не понятно - в лс или в комменты сюда

Числовые Типы:

integer - целое число в диапазоне от -2147483647 до 2147483647

longint - То же что и integer. Видимо называется так по образцу со своими младшими братьями - smallint и shortint.

BigInteger - Тоже целое число. Реализовано не совсем как тип данных (Является классом .NET Framework) И поддерживается только в новых версиях языка Pascal - PascalABC.NET. Имеет бесконечный диапазон, ограниченный лишь объёмом оперативной памяти устройства, на котором запущена программа, использующая в своей работе числа, являющиеся экземплярами BigInteger

shortint - Целочисленный тип меньшего диапазона, нежели Integer

smallint - Целочисленный тип меньшего диапазона, нежели integer, но большего чем shortint

Int64 - 64-битное целое число. Имеет самый большой диапазон среди всех целочисленных типов после BigInteger

Byte - целое беззнаковое число, занимающее в памяти компьютера ровно 1 байт. Имеет диапазон от 0 до 255

Word - Целое беззнаковое число в диапазоне от 0 до 65535

real - Действительное число. Число с плавающей точкой

double - Действительное число. Так же является числом с плавающей точкой, как и real, но отличается точностью вычислений (а вот в чью пользу - убей, не помню)

Строковые и символьные типы:

string - Unicode-строка

char - один какой либо unicode-символ

Логический тип:

boolean - логическая переменная. Может иметь только два значения - True (Истина) или False (Ложь)

Объяснение:

1)

Program Task1;

var e, x, y, z, exp: real;

function enterNums(): real;

   begin

       writeln();

       write (' Enter e: '); readln (e);

 write (' Enter x: '); readln (x);

 write (' Enter y: '); readln (y);

 writeln();

   end;

begin

   enterNums();

   exp := ((3 * y) ** 0.5) + x;

   if exp > 14 then

       z := e ** (3 * x * y);

   if exp < 14 then

       z := x + (3 * y)

   else

       z := x * 0.5;

   writeln(' Z =  : ', z);

   writeln();

end.

2)

Program Task2;

var jan, feb, mar, apr, may, jun, jul, aug, sep, oct, nov, dec, month: string;

var long, short, veryShort: byte;

begin

   jan := 'Январь'  ;

   feb := 'Февраль' ;

   mar := 'Март'    ;

   apr := 'Апрель'  ;

   may := 'Май'     ;

   jun := 'Июнь'    ;

   jul := 'Июль'    ;

   aug := 'Август'  ;

   sep := 'Сентябрь';

   oct := 'Октябрь' ;

   nov := 'Ноябрь'  ;

   dec := 'Декабрь' ;

   long      := 31;

   short     := 30;

   veryShort := 28;  

   write(' Введите Название мецяца с большой буквы: '); readln(month);

   writeln();

   if month = jan then write(' В месяце ', month, ' ', long, ' дней!'  );

   if month = feb then write(' В месяце ', month, ' ', veryShort, ' дней! (бывает и 29)'  );

   if month = mar then write(' В месяце ', month, ' ', long, ' дней!'  );

   if month = apr then write(' В месяце ', month, ' ', short, ' дней!'  );

   if month = may then write(' В месяце ', month, ' ', long, ' дней!'  );

   if month = jun then write(' В месяце ', month, ' ', short, ' дней!'  );

   if month = jul then write(' В месяце ', month, ' ', long, ' дней!'  );

   if month = aug then write(' В месяце ', month, ' ', long, ' дней!'  );

   if month = sep then write(' В месяце ', month, ' ', short, ' дней!'  );

   if month = oct then write(' В месяце ', month, ' ', long, ' дней!'  );

   if month = nov then write(' В месяце ', month, ' ', short, ' дней!'  );

   if month = dec then write(' В месяце ', month, ' ', long, ' дней!'  );

   writeln();

   writeln();

end.

Удачи))