• Составить на алгометрическом языке программу для сложения всех чётных чисел от 0 до 200. ( т.е. идёт алгорим должен выглядеть так:
    алг
    нач .......( помогите дальше дописать)

Ответы 1

  • program task;const n=200;var a:array[0..n] of integer;     i,s: integer;  beginfor i:=0 to n do begin   if(a[i] mod 2=0) thens:=s+1;write('кол-во числе равно', s); end;end.начало - ввод данных ( в данном коде нету этого, так как все описано сразу же) - проверка условия, если истенно то увеличиваем счетчик, если нет, то ничего не делаем - вывод счетчика.
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years