1) чему будет равно значение переменной с в результате выполнения фрагмента программы а: =125; b: =25; с: =12; if a div 25=0 then if a mod 12=0 then c: =b div (a mod c) else c: =a div (b mod c) 2) укажите результат выполнения программы var a, b: integer; procedure proc(var a: integar; b: integar); begin b: =4; a: =6; b: =a+b; end; begin a: =2; b: =3; proc(a, b); writein(a, ' ', b); end. хотя бы !

1) c = 12 2) a  = 6, b = 3 

Код программы: var k: integer; begin read (k); if (k div 100 = 0) and (k div 10 < > 0) then writeln ('true') else writeln ('false'); end. обьяснение: описываем переменную (в нашем случае число целое) начинаем программу читаем переменную к с клавиатуры сравниваем, если переменная к при делении нацело на 100 выдает результат 0 и при этом переменная к при делении нацело на 10 дает результат не равный нулю, выводим значение тру, иначе выводим значение нет. завершение программы надеюсь мое объяснение вам . буду рад если вы отметите мое решение как лучшее (я шарю в паскале, поэтому если будут вопросы еще, пиши в лс)

начнём с того, что эта программа даже не скомпилируется. вы пытаетесь вывести какой-то неизвестный компилятору объект ura! , uraa! и так далее. вместо этого вам необходимо занести это под кавычки " " - так компилятор будет знать, что это строка, которую необходимо вывести в консоль.

ход работы

если(5 < 4 и 2 > 5) = если(ложь и ложь) = если(ложь) - пропускаем это условие, переходим к следующему.

если(5 > 0 или 5 < 4) = если(истина или ложь) = если(истина) = условие выполняется, на консоль выводится надпись "uraa! ";