Вы платите провайдеру абонентскую плату 150 руб. в месяц, а каждый мегабайт информации, переданной через Интернет, стоит вам 1,5 рубля. Сколько вы заплатите провайдеру, если передадите за месяц 160 МБ информации?

Объяснение:

150+1.5•160

Первым делаем умножение

160•1.5=240₽- мы заплатим провайдеру за информацию

240+150=390₽ - заплатим провайдеру всего за месяц

var n,a,b,c,d,s: integer;

begin

  write('n='); readln(n); {n -   даанное 4-хзначное число}

  a: =n mod 10; {последняя, 4-я, цифра числа}

  b: =(n div 10) mod 10; {предпоследняя, 3-я, цифра}

  c: =(n div 100) mod 10; {2-я цифра}

  d: =n div 1000; {1-я цифра}

  s: =a+b+c+d;

    writeln('s=',s);

end.

program ttt; var i,j,a,b,c: integer; beginreadln(a); readln(b); readln(c); if (a> b) then if (a> c) then begin write(a); if (b> c) then begin write(b); write(c) end; else begin write(c); write(b); endend; elseif (b> c) then begin write (b); if(a> c)then begin write(a); write(c); end; else begin write(c); write(a); end; end; else begin write(c); if(a> b) then begin write(a); write(b)end; else begin write(b); write(a); end; end; end; неоптимальный, но понятный алгоритм.а в другом случае можноо оптимизировать.. как- подумай -; )