Информатика, опубликовано 2018-08-22 22:08:35 by Гость
pascal abc1. Сколько натуральных чисел, меньших 1000, не делятся ни на 5 ни на 7?2. Дан двумерный массив А(4,5), заполненный с помощью ГСЧ. Заменить максимальный элемент каждой строки на противоположный.3. Возвести отрицательные элементы массива А(10), заданного ГСЧ, в квадрат.
Ответ оставил Гость
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.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.
Форма вопроса доступна на