Найти стоимость заданного количества ткани. цена и количество вводятся с клавиатуры. ( составьте программу паскаль) язык программы паскаль.

Var a,b,c: integer; x,y,z: string; begin x: ='рубль'; y: ='рубля'; z: ='рублей'; writeln('сколько стоит метр ткани? (в рублях)'); readln(a); writeln('сколько вы хотите купить ткани? (в метрах квадратных)'); readln(b); c: =a*b; if c=1 then begin writeln('это будет стоить',' ',c,' ',x); end; if (2< =c) and (c< =4) then begin writeln('это будет стоить',' ',c,' ',y); end; if (5 < = c) and(c < = 1000000) then begin writeln('это будет стоить',' ',c,' ',z); end; end. в зависимости от результата программа будет выводить разное окончание.1 рубль; 3 рубля; 100 рублей.

1)false (т.к. x> y)

2)true (x< y,x не равен y)

3)false(x> y)

4)true(т.к. x=y, x не равен y)

 

дано:

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