Опубликовано 5 лет назад по предмету Информатика от 4ygo2

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

Ответ

Ответ дан jaaagga

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.
1. Ответ
  
  Ответ дан jaaagga
  
  mod2*
2. Ответ
  
  Ответ дан jaaagga
  
  Нет лучше вот так. program one;
  uses crt;
  var i,x:integer;
  n:real;
  begin
  x:=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.
3. Ответ
  
  Ответ дан jaaagga
  
  program one2;
  uses crt;
  var
  i,x:integer;
  n:real;
  begin
  x:=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.
  Без ошибок

Самые новые вопросы

Другие предметы - 4 года назад

Сочинение-рассуждение. прочитайте текст. есть у меня внучка. однажды она говорит: — у веры в субботу день рождения. она

Другие предметы - 4 года назад

Л.н. толстой. как боролся русский богатырь как сказал иван о своей силе? найдите ответ в тексте. запишите.

История - 4 года назад

Кто такой мильтиад и какова его роль в победе над персами?

История - 4 года назад

Какие примеры н. м. карамзин использует для разъяснения пользы новой системы престолонаследия? согласны ли вы с позицией

География - 4 года назад

Дополните схему. она поможет вам лучше усвоить содержание §1.: 1 что изучает география 2 с помощью чего 3 зачем изучают