// PascalABC.NET 3.3, сборка 1573 от 04.11.2017 // Внимание! Если программа не работает, обновите версию!
a)
begin var (a,b):=ReadReal2('Введите через пробел два числа:'); if a>b then Writeln('Первое число больше второго') else if b>a then Writeln('Второе число больше первого') else Writeln('Числа равны') end.
b)
begin var (a,b):=ReadReal2('Введите через пробел два числа:'); if a<b then Writeln('Первое число меньше второго') else if b<a then Writeln('Второе число меньше первого') else Writeln('Числа равны') end.
Program Shifr; var s1,s2,alf:string; i:integer; key, Kod:integer; //ключ шифрования f1,f2:text; BEGIN alf:=''; assign(f1,'Dannie.txt'); assign(f2,'Shifr.txt'); reset(f1); rewrite(f2); writeln('Введите ключ шифрования от 1 до 25:'); readln(key); while Not(Eof(f1)) do begin readln(f1,s1); s2:=''; for i:=1 to length(s1) do begin Kod:=Pos(s1[i],s1); Kod:=Kod+key; if Kod>26 then Kod:=Kod-26; if Kod<1 then Kod:=Kod+26; s2:=s2+alf[Kod]; key:=-key; end; writeln(f2,s2); end; close(f1); close(f2); END.
// Внимание! Если программа не работает, обновите версию!
a)
begin
var (a,b):=ReadReal2('Введите через пробел два числа:');
if a>b then Writeln('Первое число больше второго')
else
if b>a then Writeln('Второе число больше первого')
else Writeln('Числа равны')
end.
b)
begin
var (a,b):=ReadReal2('Введите через пробел два числа:');
if a<b then Writeln('Первое число меньше второго')
else
if b<a then Writeln('Второе число меньше первого')
else Writeln('Числа равны')
end.