Йохпснбчйа - (шифр цезаря это замена каждой буквы на следующей в алфавите)
Ты не дал последовательность букв. но должно быть примерно так: http://birthday.ru/look.jpg/
Где этот грёбаный файл.Я ща его уделаю!!!!!!!
Program zadacha;
var a,b,s:integer;
begin
writeln('Введите кол-во жителей: ');
readln(a);
writeln('Введите площадь государства: ');
readln(b);
s:=a/b;
writeln(s);
end.
Var one,two,three:integer;
Begin
Write('Введите первое число число: ');
ReadLn(one);
Write('Введите второе число число: ');
ReadLn(two);
Write('Введите третье число число: ');
ReadLn(Three);
if (one < two) and (two < Three) then
writeln('Числа введены в порядке возрастания')
else
writeln('Числа НЕ введены в порядке возрастания');
End.