• Запросить 20 чисел проверить правда ли что среди введенных чисел все числа равны(паскаль) СРОЧНО!!!

Ответы 1

  • var n0,n1:integer;    i:integer;    flag:boolean;begin  writeln('Введите 20 чисел');  readln(n0);  flag:=true;  for i:=2 to 20 do begin    readln(n1);    if n0<>n1 then flag:=false;  end;  if flag then writeln('Все числа равны') else writeln('Не все числа одинаковы');end.
    • Автор:

      yogi8idq
    • 6 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

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

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

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