Var
a1, a2: integer;
begin
a1 := 0;
a2 := 0;
writeln('enter the first value: ');
read(a1);
writeln('enter the second value: ');
read(a2);
writeln('answer is: ', a1+a2);
end.
Это не шифр цезаря это Атбаш
CLS
INPUT "h = ", h
FOR x = -1 TO 1 STEP h
PRINT "f("; x; ") = ", COS(x) - 1
NEXT x
END
Пример работы программы:
h = 0.5
f(-1 ) = -.4596977
f(-.5 ) = -.1224174
f( 0 ) = 0
f( .5 ) = -.1224174
f( 1 ) = -.4596977
67 = 1000011 переводит надо делением на 2 столбиком и записывать остаток