Программа Replit---> Python 3.
написать программу "предсказатель" .Программа должна по пользователя ввести во на который можно ответить однозначно, то есть "да" или "нет" .После чего пользователь случайным образом ведёт ответ на пример "Да" ,"Нет", "определенно Да", "Ни в коем случае", "Конечно же нет", "И хватит задавать глупые во и тому подобное. Вариантов ответа или во должно быть не меньше четырёх.
Program z2_65;
uses crt;
Label a1,a2,a3,a4,a5,a6,a7;
var a,s,h,rv,ro,p:real;
n:integer;
begin
clrscr;
Writeln('Укажите номер пункта:');
writeln('1. Дана сторона треугольника.');
writeln('2. Дана площадь треугольника.');
writeln('3. Дана высота треугольника.');
writeln('4. Дан радиус вписанной окружности треугольника.');
writeln('5. Дан радиус описанной окружности треугольника.');
read(n);
case n of
1:Begin Write('a=');read(a);goto a1;end;
2:begin Write('s=');read(s);goto a2;end;
3:Begin Write('h=');read(h);goto a3;end;
4:Begin Write('r=');read(rv);goto a4;end;
5:Begin Write('R=');read(ro);goto a5;end;
else
begin
write('Такого номера пункта нет.');
goto a7;
end;
end;
a1: rv:=a/2;
ro:=a/Sqrt(3);
s:=sqrt(3)*sqr(a)/4;
h:=2*s/a;
goto a6;
a2: a:=sqrt(4*s/sqrt(3));
h:=2*s/a;
rv:=a/2;
ro:=a/Sqrt(3);
goto a6;
a3: a:=2*h/sqrt(3);
s:=a*h/2;
rv:=a/2;
ro:=a/Sqrt(3);
goto a6;
a4: a:=2*rv;
ro:=a/Sqrt(3);
s:=sqrt(3)*sqr(a)/4;
h:=2*s/a;
goto a6;
a5: a:=sqrt(3)*ro;
s:=(a*a*a)/(4*ro);
h:=2*s/a;
rv:=a/2;
a6: writeln('a=',a:2:2);
writeln('s=',s:2:2);
writeln('h=',h:2:2);
writeln('R=',ro:2:2);
writeln('r=',rv:2:2);
a7: readkey;
end.
const alphabet="";
var FileName:string
procedure ReadFile(FileName:string);
var f:text;
s:string;
i,k:integer;
begin
assign(f,FileName);
reset(f);
while not eof (f) do begin { пока не конец файла }
readln (f, s);
for i:= 1 to length(s) do begin
k:=pos(s[i], alphabet);
if k=1 then k=length(alphabet); {это приколы изза я}
if k>1 then s[i]:=alphabet[k-1];
end;
writeln(s);
end;
close(f);
end;
Begin
read(FileName);
ReadFile;
readln;
End.