Единица товара стоит a рублей b копеек. было куплено n штук этого товара. сколько рублей и копеек пришлось заплатить за всю покупку? на вход программе три целых числа: 0 a 30 000, 0 b < 100 и 0 n 30 000. выведите два искомых числа.

Var a,b,n,a1,b1: integer;     begin  write('введите рубли: ');     readln(a);   write('введите копейки: ');   readln(b);   write('введите количество: ');     readln(n);     readln(a,b,n);   if(a> 0) and (a< 30000) and (b> 0)  and  (b< 100)  and  (n> 0)  and  (n< 30000)  then begin    b1 : = b * n mod 100;   a1 : = a * n + b * n div 100;     writeln('рублей ',a1);   writeln('копеек ',b1);     end  else  writeln('ошибка ввода');     end.

//pascal abc.net v3.1 сборка 1219 const   n=5; var   ar: array[1..n] of integer;   i,j,k: integer; begin   randomize;   writeln('first array: ');   for i: =1 to n do   begin     ar[i]: =random(-3,3);     write(ar[i]: 4);   end;   for i: =1 to n-1 do {, пузырёк. но за быструю сортировку здесь репортят}   for j: =i+1 to n do     if ar[i]> ar[j] then     begin       k: =ar[i];       ar[i]: =ar[j];       ar[j]: =k;     end;   writeln;   writeln('sorted array: ');   for i: =1 to n do   write(ar[i]: 4);   writeln;   for i: =1 to n do   if ar[i]=0 then   begin     write('index of 0 is ',i);     break;   end; end. пример работы программы: first array:   -2   -3   0   -3   3sorted array:   -3   -3   -2   0   3index of 0 is 4

Впамяти компьютера любая информация представляется всего  с 2-х цифр - 0 и 1.   буква, цифра или любой символ в памяти компьютера представляется как код из 8-ми нулей и единиц. стоит отметить, что заглавная и строчная буквы имеют разный код. простая черно-белая картинка представляется на компьютере совсем не сложно : 1-это закрашенный (черный)  квадратик (пиксель), 0- незакрашенный (белый) пиксель. сложные, цветные картинки состоят из огромного количества нулей и единиц, как и звуковые файлы или видео