Укажите, сколько раз выполнится тело цикла с заданным заголовком:
FOR i := 5 DOWNTO 1 DO

var a,b: string; begin                            cls;   read(a);     b: =a;           write('b')end.           

только  25-18=7 человек

только французский 27 - 18 = 9 человек

ну а на вопросы не отвечу =))

теперь не плагиат

program pr; var c: integer; beginwriteln('введите число с'); readln(c); writeln('остаток от целочисленного деления числа ',c,' на 10 в квадрате равен ',sqr(c mod 10)); end.

дано:

g= 44,1 кгц= 44100 гц

i= 16 бит

t=2 мин=120 сек

v-?

решение:

v=g*i*t

v= 44100гц*16 бит*120 сек= 8467200 бит

v= 8467200/8*1024*1024= 10 мбайт