Спаскаль абц нужно нарисовать сфетофор

program sfetafor1; uses graphabc; beginsetwindowsize(640,480); clearwindow(clwhite); setpencolor(clblack); setpenwidth(3); rectangle(200,200,300,400); floodfill(250,300,clltgray); circle(250,230,25); circle(250,290,25); circle(250,350,25); floodfill(250,235,clred); floodfill(250,285,clyellow); floodfill(250,355,clgreen); line(250,200,250,150); line(250,150,100,150); setfontsize(14); setfontcolor(clred); textout(100,125,'красный свет-дороги нет'); end.

uses graphabc,crt; const t=500;

beginsetwindowsize (600, 600); setpencolor (clblack); setbrushcolor (clblack); rectangle (45, 45, 105, 225 ); setpencolor (clred); setbrushcolor (clred); circle (75, 75, 25); setpencolor (clyellow); setbrushcolor (clyellow); circle (75, 130, 25); setpencolor (clgreen); setbrushcolor (clgreen); circle (75, 185, 25); setpencolor (clblack); setbrushcolor (clblack); rectangle (70, 225, 80, 300); setbrushcolor (cldkgray); circle (75, 130, 25); setbrushcolor (clgreen); circle (75, 185, 25);

repeatsetbrushcolor (cldkgray); circle (75, 185, 25); setbrushcolor (clred); circle (75, 75, 25); delay(t); setbrushcolor (cldkgray); circle (75, 75, 25); setbrushcolor (clyellow); circle (75, 130, 25); delay(t); setbrushcolor (cldkgray); circle (75, 130, 25); setbrushcolor (clgreen); circle (75, 185, 25); delay(t); until keypressed;

end.

Объяснение:

1д ж о й с т и 3к  6т          

      л  р  8н        

     5к а м е р а    9м ы ш ь

      в  к  у    о    

2к о л о н к и  б  ш    н    

      а  о  н  11п  и    

4п л а н ш е т  л  и  л  т    

      у    к  о  о    

 7с к а н е р  10п р и н т е р    

      а      т      

            е      

         12м и к р о ф о н  

                 

                 

                 

                 

                 

                 

                 

По горизонтали: По вертикали:

1. джойстик

2. колонки

4. планшет

5. камера

7. сканер

9. мышь

10. принтер

12. микрофон 3. клавиатура

6. трекбол

8. наушники

9. монитор

11. плоттер

#include <iostream>

using namespace std;

int main()

{

   int number;

   int positive = 0;

   int negative = 0;

   int amount = 0;

   cin >> number;

   while (number != 0)

   {

       amount += number;

       if (number > 0)

       {

           positive++;

       }

       else if (number < 0)

       {

           negative++;

       }

       cin >> number;

   }

   cout << amount << endl << positive - negative;

}

Объяснение:

#include <iostream> // Библиотека ввода - вывода

using namespace std; // Пространство имён

int main()

{

   int number; // Целочисленная переменная для хранения вводимых с клавиатуры чисел

   int positive = 0; // Целочисленная переменная для хранения количества положительных чисел

   int negative = 0; // Целочисленная переменная для хранения количества отрицательных чисел

   int amount = 0; // Целочисленная переменная для хранения суммы чисел последовательности

   cin >> number; // Вводим число с клавиатуры

   while (number != 0) // Пока значение переменной number ≠ 0

   {

       amount += number; // Суммируем

       if (number > 0) // Если значение переменной number - положительное

       {

           positive++; // Добавляем единицу

       }

       else if (number < 0) // Если значение переменной number - отрицательное

       {

           negative++; // Добавляем единицу

       }

       cin >> number; // Вводим число с клавиатуры

   }

   cout << amount << endl << positive - negative; // Выводим сумму чисел последовательности и разность между количеством положительных и отрицательных

}