Var a:integer;
begin
readln(a);
while(a<>0) do begin
write(a mod 10);
a:=a div 10;
end;
<span>end.</span>
Program E2_1;
Сколько раз будет выполнен оператор M := a[k]
при заданном массиве (3, 8, 7, 9, 4, 10, 2, 12)?
Ответ: 4 раза, т.к. условие
if M < a[k]
выполнится при a[k]=8, 9, 10, 12
------
Program E2_2;
в записи оператора s := s + a[k] была допущена ошибка - вместо него был записан оператор s := s + 1. Каким оказался ответ после исполнения неверной программы, если в качестве элементов массива были введены числа (-1, 3, -2, 4, -5, 6, -7, 8)?
Ответ: s = 4, т.к. условие
if a[k] < 0
выполнится при a[k]=-1, -2, -5, -7
---------
Какие значения примут элементы массива A[3] и A[4] после выполнения последовательности операторов, если первоначально
A[3]:=5;
A[4]:=6;
A[3]:=A[4];
A[4]:=A[3]?
Ответ:
A[3] = 6;
A[4] = 6;
-----------
В представленном фрагменте программы значения одномерного массива задаются с помощью оператора цикла. Чему будет равно A[5]?
For i := 1 To 5 Do Begin
A[2*i - 1] := i;
A[2*i] := i*i
End.
Элементу A[5] присвоит значение строка
A[2*i - 1] := i;
i при этом будет равно 3.
Ответ: A[5] = 3
//Dev-C++ 4.9.9.2
#include <iostream>
using namespace std;
int main(){
int a,s=0;
for(int i=0;i<10;i++){
cin>>a;
if(a>5)s=s+a;
}
cout<<s;
cin.get();
cin.get();
return 0;
}
Пример ввода:
1
2
3
4
5
10
10
10
10
10
Пример вывода:
50
1.Объем памяти звукового файла можно посчитать по формуле:V=t*s*i, где t- время (в сек.), s- амплитуда (Гц или 1/сек.), i - информационный объем (бит)
V= 1*22000*16= 352000бит = 44000 байт = 42,97 Кбайт.
2.Определим глубину цвета i по формуле: n=2^i , где n - кол-во цветов 256=2^i i=8 бит/пиксель
Размер одного кадра будет равен произведению разрешения монитора на глубину цвета.
R= 1366*768*8= 8392704 бит
Но чтобы узнать какое кол-во памяти потребуется на 1 минуту фильма необходимо знать частоту кадров в секунду!( в условиях это не указано??)
Предположим частота 100Гц (или кадров в сек.)
Тогда объем фильма = размер одного кадра * время (в сек)* частоту =8392704*60*100 = 50356224000 бит = 6294528000 байт = 6147000 Кбайт = 6002,93Мбайт
//Pascal ABC.NET v3.1 сборка 1219
Const
n=5;
Var
ar:array[1..n] of integer;
i:integer;
begin
for i:=1 to n do
readln(ar[i]);
for i:=1 to n-1 do
if ar[i]>ar[i+1] then
begin
writeln('Убывает на одном из участков');
exit;
end;
writeln('Возрастает');
end.