kkarimov111
27.02.2021 09:33

Pascal abc 1. сколько натуральных чисел, меньших 1000, не делятся ни на 5 ни на 7? 2. дан двумерный массив а(4,5), заполненный с гсч. заменить максимальный элемент каждой строки на противоположный. 3. возвести отрицательные элементы массива а(10), заданного гсч, в квадрат.

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
hdbhbd
01.10.2020 22:21
1. Var s,i:integer;
Begin
S:=0;
For i:=1 to 1000 do 
If (i mod 5<>0)and (i mod 7 <>0) Then s:=s+1;
Writeln(s);
Readln;
end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота