Предмет: Информатика,
автор: rukavecnika
ПОМОГИТЕ ПОЖАЛУЙСТА ОЧЕНЬ НУЖНО
Приложения:

Ответы
Автор ответа:
1
Ответ:
(i mod 3 = 0) and (a mod 2 <> 0)
Объяснение:
var i, c, a: integer;
begin
c:=0;
i:=0;
repeat
Write('Введите число последовательности '); readln (a);
if (i mod 3 = 0) and (a mod 2 <> 0) then begin
c:=c+a;
writeln('i= ',i, ' c=',c)
end;
i:=i+1;
until a=0;
writeln('Сумма нечётных чисел последовательности с номерами кратными 3 ',c)
end.
добавили условие нечётности вводимых чисел
Похожие вопросы
Предмет: Русский язык,
автор: балерина7
Предмет: Английский язык,
автор: sahuly1222
Предмет: Русский язык,
автор: vlad2319923
Предмет: Математика,
автор: tyumerekov90