<em>// PascalABC.NET 3.3, сборка 1542 от 05.10.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var c1:=ReadlnChar('Введите первый символ:');
var c2:=ReadlnChar('Введите второй символ:');
Print(c1);
if c1>c2 then Print('>')
else
if c1=c2 then Print('=')
else print('<');
Println(c2)
end.
<u>Примеры</u>
Введите первый символ: a
Введите второй символ: b
a < b
Введите первый символ: d
Введите второй символ: d
d = d
Введите первый символ: z
Введите второй символ: m
z > m
Введите первый символ: q
Введите второй символ: Q
q > Q
Var
A,B,C:char;
Begin
WriteLn('Введи первый символ');
ReadLn(C);
WriteLn('Введи второй символ');
ReadLn(A);
WriteLn('Введи третий символ');
ReadLn(B);
if (Ord(A)*Ord(B)) mod Ord(C) = 0 then WriteLn('Верно')
else WriteLn('Не верно')
End.
электранная почта-(англ.email,от англ electronic электронная)это когда обмениваются информацией один человек с другим используя интернет.
Const
N = 5; {количество спортсменов}
var
K : array [1..N] of integer;
i, max : integer;
begin
for i := 1 to N do
begin
write('Результат спортсмена номер: ', i, ': ');
readln(K[i]);
end;
max := K[1];
for i := 2 to N do
if K[i] > max then
max := K[i];
writeln('Максимальный результат: ', max);
end.
Ячейка - минимальный объект табличного процессора