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

1. Печатный размер (физический)- это тот размер, который изображение занимает на бумаге (измеряется в см, мм, дюймах).
Один дюйм = 2,54 см

Показать ответ
Ответ:
VOLKODAV770
VOLKODAV770
31.05.2022 07:17

program massiv;

var b:array[1..100]of integer;

r,n,m,i,p,k,a:integer;

begin

randomize;writeln ('a=');readln(a);

writeln('n=');readln(n);

for i:=1 to n do begin

b[i]:=random(50)-25;

writeln('a[',i,']=');

if b[i]>0 then begin r:=r+b[i];p:=r*2;

if b[i]>a then k:=k+1;

if ((b[i]<a)and(b[i]>0)) then m:=m+1;

end;end;writeln('удвоенная сумма положительных элементов ',p);

writeln('kол-во элементов массива , значения которых больше заданного числа',k);

writeln('количество положительных элементов не превсходящих заданного числа',m);

end.

0,0(0 оценок)
Ответ:
ник10910
ник10910
07.07.2020 12:10

Если не математическим, а программным образом, то примерно так

 

A2(), А3(), А4(),А5()   это массивы, в которых сохраним эти числа

ц2=0;

ц3=0;

ц4=0; 

ц5=0;  // это их индексы

Для ц=100 до 999 Цикл

      Если Остаток(ц+1,2)=0 Тогда

                   ц2=ц2+1;

                   А2(ц2)=ц;

      КонецЕсли;

      Если Остаток(ц+2,3)=0 Тогда

                   ц3=ц3+1;

                   А3(ц3)=ц;

      КонецЕсли;

 

      Если Остаток(ц+3,4)=0 Тогда

                   ц4=ц4+1;

                   А4(ц4)=ц;

      КонецЕсли;

 

      Если Остаток(ц+4,5)=0 Тогда

                   ц5=ц5+1;

                   А5(ц5)=ц;

      КонецЕсли;

 

КонецЦикла;

 

// Теперь их напечатаем

Сообщить("При увеличении на 1 делятся на 2");

Для ц=1 по ц2 Цикл

   Сообщить(А2(ц));

КонецЦикла;

 

Сообщить("При увеличении на 2 делятся на 3");

Для ц=1 по ц3 Цикл

   Сообщить(А3(ц));

КонецЦикла;

 

Сообщить("При увеличении на 3 делятся на 4");

Для ц=1 по ц4 Цикл

   Сообщить(А4(ц));

КонецЦикла;

 

Сообщить("При увеличении на 3 делятся на 4");

Для ц=1 по ц4 Цикл

   Сообщить(А4(ц));

КонецЦикла;

   

Сообщить("При увеличении на 4 делятся на 5");

Для ц=1 по ц5 Цикл

   Сообщить(А5(ц));

КонецЦикла;

 

 

Ну вот, где-то так.

 

Но если математически, то нужно по-другому, и информатика здесь совершенно ни при чём, скорее теория чисел.

 

 Да, в условии не сказано, что ОДНОВРЕМЕННО, поэтому я решал задачу "не одновременно"

 

Если одновременно, то ещё проще, всего одно условие со сложным условием и можно без массивов.

 

Ну и ещё: использована функция Остаток(), она есть в любом языке. Если нет(??!), то легко пишется вручную.

 

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