Ответ:
A) 320 бит
Объяснение:
1) 2 байта * 20 символов = 40 байт;
2) 1 байт = 8 бит;
3) 40 * 8 = 320;
С аналогией бухгалтерской рабочей книгой
Ответ: 1.a=33 б=34
2. а=82 б=118
3.а=50 б=50
Объяснение:
хахаах я не знаю кнш ну у меня так получилось
Var x, y, i, c, s: integer;
begin
readln(x, y);
if (x < y) then
begin
for i := x to y do
begin
c := c + 1;
s := s + i;
end;
writeln('S = ', s, ' C = ', c);
end;
<span>end.
2)
const N = 10;
var a, c: array [0..N] of integer;
i: integer;
begin
for i := 0 to N do
a[i] := random(50);
for i := 0 to N do
begin
if (a[i] mod 2 = 0) then
c[i] := a[i] * a[i]
else
c[i] := 2 * a[i] * i;
end;
{Вывод массива, это для проверки, не обязательно, но если хотите...}
for i := 0 to N do
writeln('[', i, '] => ', c[i]);
<span>end.
<em>Учителям информатики очень лень говорить домашку х)</em></span></span>
program raf105;
const
n = 10; //Размер массива
var
a:array[1..n] of integer;
i,pro: integer;
begin
pro:= 1;
writeln('Вводите ',n,' чисел по очереди');
for i:=1 to n do
begin
readln(a[i]);
if (a[i] mod 2 = 0) or (a[i] mod 5 = 0)
then pro:= pro*a[i];
end;
writeln('Произведение чисел кратных двум или пяти: ',pro);
end.
<h3><u>PascalABC 3.4.2</u></h3>