ЛЮДИ ПОМОГИТЕ,ПОЖАЛУЙСТА,20 БАЛЛОВ,ИНФОРМАТИКА
Решите задачу в 4 этапа:
1. Запишите неизвестные(переменные)
2.Запишите математ.формулу,по которой нужно решить задачу
3.Блок-схема
4. Программа для компьютера
-"В наборе из n чисел найти сумму тех чисел,которые делятся на 5 и не делятся на 7."
Решите задачу в 4 этапа:
1. Запишите неизвестные(переменные)
2.Запишите математ.формулу,по которой нужно решить задачу
3.Блок-схема
4. Программа для компьютера
-"В наборе из n чисел найти сумму тех чисел,которые делятся на 5 и не делятся на 7."
Answers & Comments
1) a:array[1..100] of integer;
i,n:integer
2) Если разъяснишь, что ты имеешь ввиду под математической формулой для задачи такого вида, я могу объяснить тебе в комментариях
3) а) Начало цикла
б) Если число делиться на 5 и не делиться на 7, то
Вывод числа
Иначе: (Ничего)
в) Если число повтора цикла равно n, то
Конец;
Иначе: Вернуться к пункту a
4) Программа:
program h1;
var i,n:integer;
var a:array [1..10] of integer;
begin
read(n) //Количество символов
for i:=1 to n do
read(a[i]); // Считывание значений для n количества символов
for i:=1 to n do
begin
if( a[i] mod 5 = 0) and (a[i] mod 7 <>0)
then
write(a[i]);
end;
end.