Var
n,i,k,m:integer;
x:real;
a:array[1..100]of real;
begin
//read(n);
n:=12;
for i:=1 to n do
read(a[i]) ;
read(k,m);
x:=a[k];
a[k]:=a[m];
a[m]:=x;
for i:=1 to n do
write(a[i]:1:6,' ');
readln;readln;
<span>end.</span>
Умножаем 56000бит/с на 25 секунд и делим на 8(что-бы перевести в байты)
56000*25/8 = 175000 байт
//Составить программу, которая после введённого с клавиатуры числа от 1 до 99 обозначает денежную единицу дописывающую слово "копейка" в правильной форме.
begin
var a := ReadInteger;
var c : string;
Assert(a >= 1);
Assert(a <= 99);
case a of
1, 21, 31, 41, 51, 61, 71, 81, 91: c := 'Копейка';
2..4, 22..24, 32..34, 42..44, 52..54, 62..64, 72..74, 82..84, 92..94: c := 'Копейки';
5..20, 25..30, 35..40, 45..50, 55..60, 65..70, 75..80, 85..90, 95..100: c := 'Копеек';
end;
Writeln(a, ' ', c);
end.
Ответ: Монитор.
Удачи в дальнейшем изучении информатики)
Первая фраза и вторая.
На основе того, что в этих фразах содержится последовательность действий:
1.Возми с полки пирожок
2.Сдуй с него пыль
3.Съешь