1. Информатика
  2. 1) определите и выведите

1) определите и выведите на экран количество чисел от 50 до 500, которые делятся на 11 и 13 одновременно. 2) дан массив целых чисел, состоящий из 100 элементов. заполнить его с клавиатуры. найти: а) удвоенную сумму положительных элементов; б)вывести индексы тех элементов, значения которых больше значения предыдцщего элемента ( начиная со второго)

Lepninanastia Lepninanastia    2   20.05.2019 06:50    7

Ответы
rustie rustie  01.10.2020 00:34

1)

var i,k:integer;
begin k:=0;
for i:=50 to 500 do begin
if (i mod 11=0)and(i mod 13=0) then k:=k+1;
end;writeln(k);
end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
Nasva Nasva  28.04.2021 08:08
Здраствуйте мне . Как можно удалить отчет о конфиденциальности на макбуке? Кто может мне . Если ответ не в тему чтобы забрать То буду жаловаться модераторам !...
миньён9 миньён9  09.06.2019 05:10
Программа в pascal abc. а) треугольник с вершинами (100. 100), (150. 100). (30,170); б) прямоугольник с вершинами (80. 30). (170. 30). (170.150). (80.150): в) пятиугольник...
мошкада мошкада  09.06.2019 05:10
Создать массив, каждый элемент которого рассчитывается по формуле: i^2-1, где i – индекс элемента массива. вывести полученный массив на экран, расположив каждый элемент...
iiiiivvvv iiiiivvvv  09.06.2019 05:10
Заполнить массив случайными числами (положительными и отрицательными) из произвольного диапазона. вывести созданный массив на экран, расположив элементы в одну строку...
matematuk007 matematuk007  09.06.2019 05:10
Одномерные массивы паскаль заменить все элементы массива, большие второго и меньшие пятого, на сумму второго и пятого....
Vladtop11234 Vladtop11234  19.05.2020 09:20
Распредели компьютерные программы по категориям...
калина007 калина007  23.03.2021 13:31
Знайти суму членів S =1:a +1:a2+1:a3+...+1:a2, якщо n =10,a =3​...
davas255 davas255  23.03.2021 13:30
Отметьте все формулы, которые НЕ изменятся при копировании из ячейки C6 в ячейку C8. =$A5+B$2 =$A$5+$B$2 =$A$5+B$2 =A$5+B$2 =A$5+$B2...
илья1988 илья1988  28.04.2020 15:10
Как называется оператор, содержащий в себе служебные слова: if... then else ... 1 Ветвление 2 Следование 3 Цикл...
MoLLoM MoLLoM  17.06.2019 17:00
Подвиг жанны дарк. только как нибудь короткое, нужно наизусть...

Популярные вопросы