Требования для создания интерфейса программы​

паскаль:

uses crt;

var a,b: string; \ а-слово ,b-символ

i: integer; \ переменная для счета

begin

writeln ('слово и символ');

readln (a,b); \\ввод данных

for i: =1to length(a) do if copy (a,i,1)=b then writeln (i); \\копирование по порядку символов слова а   и сравнение каждого с символом b. вывод ответа. или ответов 

readkey; \\если символы в слове повторяются

end.

var

n: integer;

begin

readln(n);

case n mod 12 of

4: writeln('год крысы');

5: writeln('год коровы');

6: writeln('год тигра');

7: writeln('год зайца');

8: writeln('год дракона');

9: writeln('год змеи');

10: writeln('год лошади');

11: writeln('год овцы');

0: writeln('год обезьяны');

1: writeln('год петуха');

2: writeln('год собаки');

3: writeln('год свиньи');

end;

end.

пусть х основание системы счисления, тогда:

122х (здесь х должен стоять нижним индексом) = 1*х² + 2*х¹ + 2*х⁰=х²+2х+2 - это десятичная запись исходного числа, значит:

х²+2х+2=65

х²+2х-63=0

д= 4 + 252 = 256

х₁ = (-2-  16)/2 = -9 (не удовлетворяет)

х₂ = (-2 + 16)/2 = 7

ответ. основание системы счисления = 7.

поскольку http: \\ftp. не бывает, то ftp: \\schools.ru\program.exe