Для решения в турбо паскале. пользователь вводит число от 0 до 10. выведите на экран надпись "цена: число рублей". слово рублей должно стоять в нужной форме. например: 1 рубль, 5 рублей.

1.

а) 512 мбайт = 512 * 8 мбит = 4096 мбит

б) 32 кбайт = 32 * 8 кбит = 256 кбит

2.

а) 32 мбит = 32 : 8 мбайт = 4 мбайт

б) 1024 кбит = 1024 : 8 кбайт = 128 кбайт

3. все зависит от кодировки. если 1 символ занимает 1 байт, тогда сообщение будет занимать столько байт, сколько символов в сообщении (буквы, пробелы, точки и любые другие символы) - в данном случае - 20 байт.

если же 1 символ занимает 2 байта (к примеру в кодировке юникод utf-16), тогда сообщение будет занимать 40 байт.

4. 4 гигабайта = 4096 мбайт.

4096 / 2 = 2048 картинок поместится на флешке размером 4 гигабайт

последний вопрос не понял. посчитать 2 в 32 степени?

1. цикл

var a,k: integer;

begin

write('введите число: ');

readln(a);

while a< > 0 do

begin

if(a mod 2 = 0) and (a mod 10 < > 8) then k: =k+1;

write('введите число: ');

readln(a)

end;

if k > 0 then writeln('в последовательности были чётные числа, не оканчивающиеся на цифру 8.')

else writeln('в последовательности не было чётных чисел, не оканчивающихся на цифру 8.')

end.

2. массив через цикл

var a,k,i: integer;

p: array [1..1000] of integer;

begin

repeat

write('введите число: ');

readln(a);

if a< > 0 then

begin

i: =i+1;

p[i]: =a

end

until a=0;

for a: =1 to i do

if(p[a] mod 2 = 0) and (p[a] mod 10 < > 8) then k: =k+1;

if k > 0 then writeln('в последовательности были чётные числа, не оканчивающиеся на цифру 8.')

else writeln('в последовательности не было чётных чисел, не оканчивающихся на цифру 8.')

end.