Даны две переменные целого типа: a и b. если их значения не равны, то присвоить каждой переменной большее из этих значений, а если равны, то присвоить переменным нулевые значения. вывести новые значения переменных a и b.

prograbid(большее из 2-х чисел);

var a,b,c: integer;

  begin

  readln(a,b);

  if a> b

  then c: = a

  else c: =b;

writeln(c);

end

Действие компьютерного вируса состоит в том, что вместо букв «б», «в», «л», «о», «т» печатаются цифры, кроме цифры 0, причём разным буквам соответствуют разные цифры. выясните, какие цифры каким буквам соответствуют, если известно, что: 1) сумма цифр слова «бот» равна 8; 2) сумма цифр слова «вол» равна 9; 3) сумма цифр слова «болт» равна 11; 4) сумма цифр слова «лото» равна 12. болт - бот = л, л = 11 - 8 = 3 вол = 9 во = вол - л = 9 - 3 = 6 лото =12 ото = лото - л = 12 - 3 = 9 бот=8, значит о > б на 1, л = 3, о = 2, б = 1, тогда т = 9 - 2 - 2 = 5, а - в = 6 - 2 = 4

Var s,v,ke,fc: real; begin  s: =18; ke: =1; v: =100; writeln('тормозной путь автомобиля: ',s,' м'); writeln('тормозной коэффичиент: ',ke); writeln('скорость авто в начале торможения ',v,' км/ч'); writeln('коэффициент сцепления с дорогой'); writeln; writeln('введите показатель погодных условий: '); writeln('варианты: '); writeln('0.7-сухой асфальт'); writeln('0.4-мокрая дорога'); writeln('0.2-укатанный снег'); writeln('0.1-обледенелая дорога'); readln(fc); s: =ke*v*v/(254*fc); writeln('скорость автомобиля по его тормозному пути: ',s); end.