Переведите на язык программирования команды:
1.Чистый экран
2.Ввести B, С, А
3.Найти сумму В и С
4.Увеличить эту сумму в 10, затем в 20 раз
5.Напечатать результаты
ОЧЕНЬ НАДО

min і max нужно присвоить а[1].

var s : string; k,f : longint; begin  readln(s);   val(s[1],k,f);   if f< > 0 then writeln('некоректно введена строка')   else if length(s)-1=k then writeln('равно')            else writeln('неравно'); end.

скор передачи=объём файла/время,отсюда  объём файла =скорость*время,т.е. 512000 * 16=8192000 бит,затем преводим все в кбайты: 8192000/8/1024=1000 кбайт

дано:

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 мбайт