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

1)найти произведение четных чисел в промежутке от 23 до 5. 2) найти сумму двухзначных чисел кратных 7

👇
Ответ:
Гавхарчик
Гавхарчик
12.01.2020
 var i,s:longint;
begin s:=1; 
for i:=23 downto 5 do
beginif (i mod 2 = 0)
then s:=s*i;
end;
writeln(s);
end.
2 var i, s : integer;
begin  
s:=1;  
for i:= 14 to 98 do   
 if i mod 7 = 0 then s:=s*i; 
 writeln(s);  
readln
end.
4,5(34 оценок)
Открыть все ответы
Ответ:
карина2029
карина2029
12.01.2020
PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018
Внимание! Если программа не работает, обновите версию!

3. Заполнить массив случайными целыми числами (0-10). Найти сумму четных и нечетных значений.

begin
  var a:=ArrRandom(ReadInteger('n='),0,10); a.Println;
  var so:=a.Where(t->t.IsOdd).Sum;
  var se:=a.Where(t->t.IsEven).Sum;
  Writeln('Сумма четных значений равна ',so,', нечетных ',se)
end.

Пример
n= 15
4 2 1 9 1 1 6 5 10 8 3 9 7 7 9
Сумма четных значений равна 52, нечетных 30

5. Заполнить массив целыми числами с клавиатуры. Найти произведение всех элементов массива.

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

begin
  ReadSeqIntegerWhile(t->t<>0).Aggregate(BigInteger(1),(p,q)->p*q).Println
end.

Пример
-4523 235423 6734532 2342354 67345423 2342342 -43532423 0
115347094687898985235964440890392383424914416

7. Заполнить массив случайными целыми числами в интервале от 0 до 18. Найти наибольший элемент среди всех чисел массива и указать его номер.

begin
  var a:=ArrRandom(ReadInteger('n='),0,18); a.Println;
  var imax:=a.IndexMax;
  Writeln('Наибольший элемент ',a[imax],' имеет номер ',imax+1)
end.

Пример
n= 13
1 4 8 18 14 14 7 1 12 15 16 12 11
Наибольший элемент 18 имеет номер 4
4,7(96 оценок)
Ответ:
figa333
figa333
12.01.2020

TXT - В *.txt-файле содержится только текстовая информация и ничего больше.

RTF - Универсальный кросс-платформенный формат для хранения текстовой информации. Сохраняет данные форматирования, позволяет производить вставку дополнительных объектов: формул, таблиц, сносок и др.

DOC - Имеют возможности сохранения форматирования, стилевого оформления, вложения картинок и других объектов в текст, а также поддержку гиперссылок.

DOCX - Усовершенствованный и лицензированный формат от Microsoft. Представляет собой следующий этап формата *.doc.

HTML - был разработан специально для создания веб-страниц, но благодаря своей универсальности, удобству и небольшому размеру стал широко использоваться для хранения текстовых данных.

PDF - Этот формат стал стандартом для обмена документами.

ODT - Поддерживает большую часть форматирования что и «DOCX», включая вставку изображений, таблиц и гиперссылок.

Объяснение:

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