Напишите программу Паскаль срочно пожалуйста даю 40 баловНайти сумму нечётных чисел

Напишите программку Паскаль срочно пожалуйста даю 40 пиров
Отыскать сумму нечётных чисел кратных 3 которые заканчиваются цифрой 5.

Задать свой вопрос
Людмила Шакулова
Так задача написана
Арсений Асадуллин
среди последовательности наверняка
Леонид
Так задачка написана
Оксана Гирлина
посреди последовательности наверняка
1 ответ
Var
  i,s,n,m:integer;
begin
  Write('Количество чисел равно ');
  Readln(n);
  s:=0;
  Writeln('Введите все числа');
  for i:=1 to n do
  begin
    Read(m);
    if (абс(m mod 10)=5) and (m mod 3=0) then s:=s+m
  end;
  Writeln('s=',s)
end.
Скимщиков Шурик
Всё правильно)
Алина Прокофьева
Всё правильно)
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт