Решите 3 задание пожайлуста

самотестирование компьютера

                |

первый этап - загрузка специальной программы в микросхеме bios для поиска загрузчика операционной системы

                |

второй этап - программа загрузчик загружается в оперативную память для передачи работой комп.

                |

программа ищет файлы операционной системы и загружает их в оперативную память в качестве программных модулей

при включении комп. ос загружается в оп раньше остальных программ

на выходе 109

program p_1; var x,y: real; beginwriteln ('vvedite x'); readln(x); writeln ('vvedite y'); readln(y) ; if x=1 then y: =3; {на всякий случай, мало ли по клавише тне никак не можно ставить другие значения. эту строчку можно и }x: =y-x; y: =2*x; x: =2*y+x; y: =y+x/2; writeln(x,'',y); readln; end.

1)

vara, b: integer;

beginreadln(a, b); if (a div 10 + a mod 10) > (b div 10 + b mod 10) thenwriteln('сумма цифр ', a, ' больше')elsewriteln('сумма цифр ', b, ' больше'); end.

2)

vara: integer;

beginreadln(a); writeln((a mod 10) * 10 + a div 10); end.

3)

vara: integer;

beginreadln(a); if ((a div 100) = (a mod 100) div 10) or ((a div 100) = (a mod 10)) or ((a mod 100) div 10 = (a mod 10)) thenwriteln('есть 2 одинаковые цифры')elsewriteln('нет 2-х одинаковых цифр'); end.

строка, рот, ройка, ретро, рост, койка, река,тройка,тропа,река.