Var
A:real;
Begin
Write('Введите число: ');ReadLn(A);
if A<0 then A:=A*A;
WriteLn(A)
End.
Var
X,Z:real;
Begin
Write('X = ');ReadLn(X);
if X>0 then Z:=X*X;
WriteLn('Z = ',Z);
End.
Var
s1,s2,s3,s4:string;
k:integer;
begin
writeln('Введите 1 слово:');
readln(s1);
writeln('Введите 2 слово:');
readln(s2);
writeln('Введите 3 слово:');
readln(s3);
writeln('Введите 4 слово:');
readln(s4);
writeln('Список одинаковых слов');
if (s1=s2)or(s1=s3)or(s1=s4) then begin k:=1; writeln(s1); end;
if (s2=s3)or(s2=s4) then begin k:=1; writeln(s2); end;
if s3=s4 then begin k:=1; writeln(s3); end;
if k=0 then writeln('Одинаковых слов нет');
end.
можно снять какой нибудь смешной сюжет
или страшилку
412030 - расшифровка которую можно расшифровать единственным способом, потому как нет значений 41 и 0.
Расшифровка 4 -1 - 20 - 30 = Г-А-Т-Ь