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

Написать программу, которая позволяет пользователю ввести 4 целых числа, проверяя, что все числа разные. И: 1) Проверяет, делится ли первое число на второе, третье и четвертое одновременно, а также делить ли хоть на какое-то из трех. 

2) Находит значения выражений (a-b)/(c-d) и a/(c+b+d), проверяя возможность вычисления. 

3) Находит наибольшее и наименьшее среди четырех чисел.

Все это - код ОДНОЙ программы, сдаёте вы тоже один файл.

👇
Открыть все ответы
Ответ:
lenin1488
lenin1488
26.09.2020

38

Объяснение:

80 * 60 * 75 = 360 000 символов на 1 вид насекомого

360 000 * 14 000 = 5 040 000 000 символов на все виды насекомых

Пусть 1 символ кодируется 1 байтом.

5 040 000 000 * 1 = 5 040 000 000 байт информационный объём информации

5 040 000 000 байт = 4 921 875 Кбайт ≈ 4 806,51 Мбайт

4 806,51 / 128 ≈ 37,55 флеш-накопителей

Округляем до целых в большую сторону, т.к. мы не можем использовать дробное количество

37,55 флеш-накопителей = 38 флеш-накопителей

1 байт = 8 бит

1 Кбайт = 1024 байт

1 Мбайт = 1024 Кбайт

4,8(80 оценок)
Ответ:
Halula
Halula
26.09.2020
Program mm;
var a:array[1..12] of integer;
begin
for i:=1 to 12 do begin
а[1]:=5;
 а[2]:=4;
 а[3]:=-3;
 а[4]:=1;
 а[5]:=0;
а[6]:=-4;
 а[7]:=(у тебя не написано);
 а[8]=25;
 а[9]=-8;
 a[10]=-5;
 а[11]=-17;
 а[12]=-1;
end;
writeln('Вот исходный массив');
for i:=1 to 12 do writeln('A[',i,']=',a[i]); 
for i:=1 to 12 do begin
if (A[i]<0) then a[i]:=1;
if (a[i]>0) then a[i]:=-5;
end;
writeln('Вот полученный массив');
for i:=1 to 12 do writeln('A[',i,']=',a[i]); 
writeln(' Введите 12 чисел');
for i:=1 to 12 do readln(A[i]);          (это доп оценка)
end.
4,5(18 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ