Написать программку, вычисляющая сумму четных положительных чисел и количество отрицательных

Написать программку, вычисляющая сумму четных положительных чисел и количество отрицательных чисел, кратных пяти.

Задать свой вопрос
Степа Лисуненко
Какой язык программирования? Либо вообщем в скретче?
1 ответ
Program mod; uses crt; var x,i,a:integer;begintextcolor(11);writeln('Введите любое число кратное 5: ');readln(a);for x:=1 to a doif (x mod 5 = 0) theni:=i+x;writeln(i);end.     
Ваня Сторчиенко
mod2*
Хинская Елизавета
Нет лучше вот так. program one; uses crt; var i,x:integer; n:real;beginx:=0;p:=1;for i:=2 to 100 do begin if i mod 5=0 then s:=s+i; if i mod 5=0 then n:=n*i; end;writeln('Сумма кратных 5 ', x);writeln('Произведение кратных 5 ',n);end.
Валентина Сапруненко
program one2; uses crt; var i,x:integer; n:real;beginx:=0;n:=1;for i:=2 to 100 do begin if i mod 5=0 then x:=x+i; if i mod 5=0 then n:=n*i; end;writeln('Сумма кратных 5 ', x);write('Творенье кратных 5 ', n);end.Без ошибок
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт