М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
рус248
рус248
27.03.2023 17:19 •  Информатика

Пользователь вводит с клавиатуры двухзначное число, программа вычисляет сумму четных цифр данного числа.

👇
Ответ:
olegtab34
olegtab34
27.03.2023
var  a, ch1, ch2: integer; begin  Writeln('Введите число: ');  Read(a);  ch1 := a div 10;  ch2 := a mod 10;  if (ch1 mod 2 = 0) and (ch2 mod 2 = 0) then    Writeln('Сумма четных цифр: ', ch1 + ch2)  else if (ch1 mod 2 = 0) then    Write('Только первое число четное: ', ch1)  else if (ch2 mod 2 = 0) then    Write('Только второе число четное: ', ch2)  else Writeln('Нет четных цифр') end.
4,4(66 оценок)
Открыть все ответы
Ответ:
maksatovna17
maksatovna17
27.03.2023
Var
f: array[1..10] of integer;
i,suma,sumb:integer;
begin
randomize;
for i:=1 to 10 do
begin f[i]:=random(10)+10;
write(f[i],' ');
end;
suma:=0;
sumb:=0;
for i:= 1 to 10 do
if f[i] mod 2 = 0 then
suma:=suma+f[i];
else
sumb:sumb+f[i];
writeln('Сумма четных: ',suma);
writeln('Сумма нечетных: ',sumb);
end.

var
f: array[1..8] of integer;
i,k,sumb:integer;
begin
randomize;
for i:=1 to 8 do
begin f[i]:=random(10)+10;
write(f[i],' ');
end;
k:=0;
sumb:=0;
for i:= 1 to 8 do
if f[i] mod 2 = 0 then
k:=k+1;
else
sumb:sumb+f[i];
writeln('Количество четных: ',k);
writeln('Сумма нечетных: ',sumb);
end.
4,6(88 оценок)
Ответ:
Лиопольд
Лиопольд
27.03.2023

1) узнаем количество символов на экране:

25*80=2000 символов.

в кодирвке КОИ -8 каждый символ кодируется 8 битами. таким образом: 2000*8 = 16000бит=2000байт=1,953125кБ

 

2) пусть х - количество символов, у - количество информации. запишем систему уравнений:

\left \{ {{8*x=y} \atop {16*x=y+8000}} \right.

 

ну и решаем это неравенство. подставим вместо у во второе уравнение 8х:

16х=8х+8000

8х = 8000

х = 1000 символов

 

3) считаем количество символов в предложении:

32 символа * 8 бит = 256 бит = 32 байта.

ответ: (смотрите внимательно, у вас опечатка в ответах в 3 задаче)

4,7(44 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ