• Даны 2 числа. Проверить будут ли они положительные.

Ответы 3

  • if(a>0) and (b>0) then writeln ('yes') else writeln (no);
  • Program PRIMER;Uses crt;var a,b: real;Begin     write('Введите число а = ');     readln(a);     write('Введите число b = ');     readln(b);     writeln;     if a<0 then     writeln ('Число а отрицательное');     if a>0 then     writeln ('Число а положительное');     if a=0 then     writeln ('Число а равно нулю');     if b<0 then     writeln ('Число b отрицательное');     if b>0 then     writeln ('Число b положительное');     if b=0 then     writeln ('Число b равно нулю');End.     
    • Автор:

      tucker28
    • 5 лет назад
    • 0
  • program primer;var a,b:integher;beginwriteln('vvedite a,b:=');readln(a,b);if (a<0) and (b<0) then writelln('yes') else writeln('no');readln;end
    • Автор:

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

Войти через Google

или

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

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

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