pascal abc

1. С колько натуральных чисел, меньших 1000, не делятся ни на 5 ни на 7?

2. Дан двумерный массив А (4,5), заполненный с помощью ГСЧ. Заменить максимальный элемент каждой строки на противоположный.

3. Возвести отрицательные элементы массива А (10), заданного ГСЧ, в квадрат.

Question

Феозка

5 марта, 23:34

+3

Ответы (1)

Знаете ответ на вопрос?

Мишука · Answer 1

1. Var s, i:integer;

Begin

S:=0;

For i:=1 to 1000 do

If (i mod 50) and (i mod 7 0) Then s:=s+1;

Writeln (s) ;

Readln;

end.