Ответ:
ofstream fout("rez.txt");
fout << "privet";
Объяснение:
выводит "fout"
Uses crt;
var a,h:longint;
b:integer;
begin
clrscr;
writeln ('Введи число');
readln (a);
h:=1;
while a>0 do
begin
b:=a mod 10;
h:=h*100+b;
a:=a div 10;
end;
a:=0;
while h>10 do
begin
b:=h mod 10;
a:=a*10+b;
h:=h div 10;
end;
writeln (a);
readln;
end.
Можно так-же пользоваться сайтами, но если большой объем хешей то можно пользоваться не сайтами а программой, например программа ORHT (не реклама, сам пользуюсь) или подобными программами. Да и на примере ORHT она проверяет по ~30 сайтам которые расшифровывают хеш. Кстати я расшифровывал хеш в 3500 штук (почти все расшифровались удачно) , и это заняло не более 5 минут на моем очень старом компьютере, поэтому скорость расшифровки очень большая.
//Pascal ABC.NET v3.0 сборка 1111
Var
a,b,c:integer;
begin
randomize;
a:=random(1,9);
b:=random(1,9);
write(a,'*',b,'=');
read(c);
if c=a*b then writeln('Yes') else writeln('No');
end.
<span>Пример вывода:
</span>6*9=
<span>Пример ввода:
</span>54
<span>Снова вывод:
</span>Yes