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

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

👇
Ответ:
славка23
славка23
09.10.2021

var N,i,a,p:integer;

BEGIN

readln(N);

p:=1;

for i:=1 to N do begin

read(a);

if (a>9) and (a<100) then

p:=p*a;

end;

writeln(p);

end.

4,4(20 оценок)
Открыть все ответы
Ответ:
sir125
sir125
09.10.2021

название книги                                 автор                                      жанр

Дюймовочка                                       Андерсен Х.К.                       сказки

Серебрянное копытце                   Бажов П.П.                           сказки

Мишкина каша                                  Носов Н.                               рассказы

Сказка о потеренном времени   Шварц Е.                              сказка

Ну, погоди                                          Камов Ф. Курляндский А.

 

                                                              Хайт А.                                   сказка по мультфильму

 

 

 

 

 

 

 

 

4,8(14 оценок)
Ответ:
tolstuhen
tolstuhen
09.10.2021

uses crt; var a:array[1..100, 1..100] of integer;

i,j,m,n,max,kol:integer;

begin writeln('Введите размер массива'); readln(m,n);

for i:=1 to m do begin      

for j:=1 to n do    

 begin          

writeln('Введите элементы массива ' ,i,'x',j);          

readln(a[i,j]);      

end; end;

for i:=1 to m do begin      

for j:=1 to n do      

begin        

  if a[i,j]>max then        

  max:=a[i,j];    

 end;

end; for i:=1 to m do begin    

 for j:=1 to n do      begin          

if a[i,j]=max then        

  inc(kol);    

 end; end;

writeln('max=',max,', встречается ',kol,' raz.');

end.

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