Числовые Типы:
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 (Ложь)
Объяснение:
var
a, b, c, v: integer;
s, d1, d2: real;
begin
Writeln('Введите А: ');
Read(a);
Writeln('Введите Б: ');
Read(b);
Writeln('Введите C: ');
Read(c);
V := a * b * c;
Writeln('Результат "V:=a*b*c" = ', V);
Writeln('Введите D1: ');
Read(d1);
Writeln('Введите D2: ');
Read(d2);
s := d1 * (d2 / 2);
Writeln('Результат "s:=d1*(d2/2)" = ', s);
end.
Более простой вариант:
begin
var (a,b,c):= ReadInteger3('Введите А B C: ');
Println('Результат :', a*b*c);
var (d1,d2):=ReadReal2('Введите D1 D1: ');
Println('Результат: ', d1*(d2/2));
end.
uses crt;
var a:array[1..11] of integer;
i,j,s,k:integer;
begin
writeln('Исходный массив: ');
for i:=1 to 10 do begin
a[i]:=random(5);
write(a[i]:4);
end;
s:=1; k:=0;
for i:=1 to 10 do begin
if a[i]=a[i+1] then s:=s+1;
if a[i]<>a[i+1] then begin if k<s then k:=s; s:=1; end;
end;
writeln;
writeln('Наибольшая последовательность одинаковых элементов: ',k);write(k);
end.
Массив состоит из 10 чисел (в описании максимум чисел должен быть на 1 больше, чем по факту, поэтому там 11). Числа в массиве задаются случайно в пределах от нуля до 5 (не включая 5).