Program a; // имя программы
var n:string; // четырехзначное число будем вводить с клавы
var n1, n2, n3, n4, err: integer; // n1 - n4 это цифры числа, например 1234
var sa: double; // среднее арифметическое
Begin // начало
Read( n ); // вводим с клавиатуры число N
Val( n[1], n1, err ); // первая цифра числа N
Val( n[2], n2, err ); // вторая цифра числа N
Val( n[3], n3, err ); // третья цифра числа N
Val( n[4], n4, err ); // четвертая цифра числа N
sa := ( n1 + n2 + n3 + n4 ) / 4; // находим среднее арифметическое
if ( sa / 2 = Trunc( sa / 2 ) ) and ( sa > 5 ) then Write( sa ); // если оно четное и больше пяти - выдаем значение на экран
End. // конец
Var
n,m,d,k,Max,Maxk:integer;
Begin
Write('n = ');ReadLn(n);
Write('m = ');ReadLn(m);
Maxk:=0;
For n:= m downto n do
Begin
if n>1 then k:=2
else k:=1;
d:=n div 2;
While d>1 do
Begin
if n mod d = 0 then k:=k+1;
d:=d-1
End;
if k>=Maxk then
Begin
Maxk:=k;
Max:=n;
End;
End;
WriteLn('Искомое число: ',Max);
WriteLn('Количество делителей этого числа: ',Maxk);
End.
Program hren;
uses crt;
var i:real;
BEGIN
if check_temp()>60 then writeln('Пожароопасная ситуация');
END.
check_temp() - функция должна быть реализована в библиотеке crt и возвращать текущую температуру
Program hren;
uses crt;
var j, i:integer;
BEGIN
writeln('Введите первое число');
readln(i);
writeln('Введите второе число');
readln(j);
if i>j then
begin
writeln('Первое число больше')
end else
writeln('Второе число больше')
END.
Начинаем раскодировать с начала.
Первая цифра в шифровке 5 – это начало только кода 5 (Д).
Вторая цифра 1 – это могло бы быть просто 1 (А), но тогда следующий код начинался бы с нуля, что невозможно. Значит, дальше идет 10 (И).
Остаётся 1912. Так как 9 не стоит в начале ни одного кода, 9 – окончание кода какой-то буквы, буду промежутки между буквами показывать черточкой: 19-12. 19 и 12 можно разбивать или не разбивать на коды, это даёт 4 варианта:
– 19-12 (СК)
– 1-9-12 (АЗК)
– 19-1-2 (САБ)
– 1-9-1-2 (АЗАБ)
Итого, имеем 4 варианта дешифровки:
5-10-19-12 (ДИСК)
5-10-1-9-12 (ДИАЗК)
5-10-19-1-2 (ДИСАБ)
5-10-1-9-1-2 (ДИАЗАБ)
В текстовом редактор больше возможностей, можно менять стиль,тему,есть вставка,абзацы,картинки. Поэтому он называется редактор т.е редактирует
