profile
Размещено 5 лет назад по предмету Информатика от Артем2017

Написать программу чтоб работала в Pascal 
запрашивает с клавиатуры три произвольных числа и выводит на экран сообщение о том, сколь-ко из них отрицательных, положительных и нулевых.

  1. Ответ на вопрос
    Ответ на вопрос дан Мавортий
    PascalABC
    var x,y,z:real;
    k,m,n:integer;
    begin
    k:=0;
    m:=0;
    n:=0;
    writeln('Введите первое  число');
    readln(x);
    writeln('Введите второе  число');
    readln(y);
    writeln('Введите третье число');
    readln(z);
    if x>0 then k:=k+1
    else if x=0 then m:=m+1
    else n:=n+1;
    if y>0 then k:=k+1
    else if y=0 then m:=m+1
    else n:=n+1;
    if z>0 then k:=k+1
    else if z=0 then m:=m+1
    else n:=n+1;
    writeln('Количеcтво положительных чисел : ',k);
    writeln('Количеcтво нулевых чисел : ',m);
    writeln('Количеcтво отрицательных чисел : ',n);
    end.
    1. Ответ на вопрос
      Ответ на вопрос дан Артем2017
      большое спасибо
  2. Ответ на вопрос
    Ответ на вопрос дан igroman95
    program pr; var a,b,nul,otr,pol,c:integer; begin write('A='); readln(a); write('B='); readln(b); write('C='); readln(c); if a>0 then pol:=pol+1 else if a=0 then nul:=nul+1 else otr:=otr+1; if b>0 then pol:=pol+1 else if b=0 then nul:=nul+1 else otr:=otr+1; if c>0 then pol:=pol+1 else if c=0 then nul:=nul+1 else otr:=otr+1; writeln('Положительных: ',pol); writeln('Отрицательных: ',otr); writeln('Нулевых: ',nul); end.
Не тот ответ на вопрос, который вам нужен?
Найди верный ответ
Самые новые вопросы
tegysigalpa2012
Русский язык - 6 лет назад

Помогите решить тест по русскому языку тест по русскому языку «местоимение. разряды местоимений» для 6 класса 1. укажите личное местоимение: 1) некто 2) вас 3) ни с кем 4) собой 2. укажите относительное местоимение: 1) кто-либо 2) некоторый 3) кто 4) нам 3. укажите вопросительное местоимение: 1) кем-нибудь 2) кем 3) себе 4) никакой 4. укажите определительное местоимение: 1) наш 2) который 3) некий 4) каждый 5. укажите возвратное местоимение: 1) свой 2) чей 3) сам 4) себя 6. найдите указательное местоимение: 1) твой 2) какой 3) тот 4) их 7. найдите притяжательное местоимение: 1) самый 2) моего 3) иной 4) ничей 8. укажите неопределённое местоимение: 1) весь 2) какой-нибудь 3) любой 4) этот 9. укажите вопросительное местоимение: 1) сколько 2) кое-что 3) она 4) нами 10. в каком варианте ответа выделенное слово является притяжательным местоимением? 1) увидел их 2) её нет дома 3) её тетрадь 4) их не спросили

Информация

Посетители, находящиеся в группе Гости, не могут оставлять комментарии к данной публикации.