Регистрация Спросить otvet5GPT
atsaruk2002
30.01.2021 00:10
Информатика
Есть ответ 👍

Дано a и b написать программу которая подсчитывает сколько среди них меньше нуля

277
413
Посмотреть ответы 2

Ответы на вопрос:

dianakokorina91
dianakokorina91
4,4(93 оценок)
Var a,b: integer; begin readln(a); readln(b); if (a< 0) and (b> =0)  then writeln('1'); if (b< 0) and (a> =0)  then writeln('1'); if (a< 0) and (b< 0) then writeln('2'); if (a> =0) and (b> =0) then writeln('0'); end.
Robobob
Robobob
4,8(89 оценок)
Данная программа выполнена для pascalabc.net, немного кривая, но полностью рабочая.  uses graphabc; var i: integer; procedure boy(z,w: integer); begin rectangle(z-20,w-30,z+20,w+40); moveto(z-20,w-20); lineto(z-35,w+15); lineto(z-20,w); lineto(z-20,w-20); floodfill(z-25,w,clbrown); moveto(z+20,w-20); lineto(z+35,w+15); lineto(z+20,w); lineto(z+20,w-20); floodfill(z+25,w,clbrown); floodfill(z,w,clblue); moveto(z-10,w+40); lineto(z-10,w+70); lineto(z-3,w+70); lineto(z-3,w+40); lineto(z+3,w+40); lineto(z+3,w+70); lineto(z+10,w+70); lineto(z+10,w+40); lineto(z-10,w+40); floodfill(z-5,w+65,clbrown); floodfill(z+5,w+65,clbrown); circle(z,w-40,20); floodfill(z,w-40,clbrown); end; procedure ball(x,y: integer); begin circle(x,y,15); floodfill(x,y,clred); end; begin lockdrawing; for i: =1 to 20 do begin boy(100,200); ball(100+i*5,200-i*5); ellipse(200,115,250,140); redraw; clearwindow(clwhite); end; for i: =1 to 5 do begin boy(100,200); ball(200+i*5,100+i*5); ellipse(200,115,250,140); redraw; clearwindow(clwhite); end; for i: =1 to 25 do begin boy(100,200); ball(225,125+i*5); ellipse(200,115,250,140); redraw; clearwindow(clwhite); end; end.

Реши свою проблему, спроси otvet5GPT

  • Быстро
    Мгновенный ответ на твой вопрос
  • Точно
    Бот обладает знаниями во всех сферах
  • Бесплатно
    Задай вопрос и получи ответ бесплатно

Популярно: Информатика

Caktus Image

Есть вопросы?

  • Как otvet5GPT работает?

    otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.

  • Сколько это стоит?

    Проект находиться на стадии тестирования и все услуги бесплатны.

  • Могу ли я использовать otvet5GPT в школе?

    Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!

  • В чем отличия от ChatGPT?

    otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.

Подпишись на наш телеграмм канал

GTP TOP NEWS