1) Определите и выведите на экран количество чисел от 50 до 500, которые делятся на 11…

Question

47

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

в избранное ссылка

Знаете ответ?

kadima_k · Accepted Answer

70

kadima_k

17 февраля 2024

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

комментировать

в избранное ссылка отблагодарить