В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
temaganenko
temaganenko
18.05.2023 08:37 •  Информатика

Задача 3
Решить задачу Текст
Сколько места в памяти надо выделить для хранение предложения
Информация и информационные процессы.

Задача 4
Решить задачу Текст
Сколько места надо выделить для хранения 50 страниц книги, если на каждой
странице
помещаются
32
строки
по
64

Задача 5
Решить задачу Рисунок
Сколько места в памяти надо выделить для хранения 16-цветного рисунка размером
78 на 104 пикселя?

Показать ответ
Ответ:
Leramedvedeva12
Leramedvedeva12
27.10.2020 17:32

уточнять на каком языке программирования нужно написать задачки. Я же напишу на С++. Алгоритм везде будет один и тот же.

1 задача

int x1 = 0;

int x2 = 0;

int x3 = 0;

int x4 = 0;

int x5 = 0;

cin >> x1;

cin >> x2;

cin >> x3;

cin >> x4;

cin >> x5;

double sr = 0.0;

sr = (x1+x2+x3+x4+x5)/5;

Или же можно сделать по проще

int x = 0;

int sum = 0;

double sr = 0.0;

for(int i = 0; i<5; i++){

cin >> x;

sum = sum +x;

}

sr = sum/5;

2 Задача

int number = 5;

for(int i = 2; i<20; i=i+2){

number = number + i;

}

0,0(0 оценок)
Ответ:
kstarikova1
kstarikova1
27.10.2020 17:32

1) program exec;

var a:array[1..20] of integer;

var p,i:integer;

begin

randomize;

for i:=1 to 20 do begin

a[i]:=random(50);

writeln (a[i]);

if (a[i] mod 2<>0) then p:=p+1;

end;

if (p>0) then writeln ('Присутствуют нечётные элементы')

else writeln ('Не присутствуют нечётные элементы');

end.

2) program exec;

var a:array[1..20] of integer;

var p,i:integer;

begin

randomize;

for i:=1 to 20 do begin

a[i]:=random(50);

writeln (a[i]);

if (a[i] mod 2=0) then a[i]:=a[i]+1

else a[i]:=a[i]*2;

end;

writeln ('---'); // разделение двух массивов

for i:=1 to 20 do writeln (a[i]);

end.

0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота