М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
nasyi
nasyi
19.07.2022 16:08 •  Информатика

Паскаль. составьте программу, которая введённого с клавиатуры, выводит количество дней в феврале для високосного и не високосного годов.

👇
Ответ:
Кэт32131
Кэт32131
19.07.2022
Var s:string;
begin;
readln(s);
if (s<>'Високосный') and (s<>'Не високосный') then exit;
if s='Високосный' then writeln('29') else writeln('28');
end.
4,6(8 оценок)
Открыть все ответы
Ответ:
Kpocav4ik666
Kpocav4ik666
19.07.2022

Объяснение:

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. плоттер

4,6(9 оценок)
Ответ:
serhio2000
serhio2000
19.07.2022
Uses graphabc; begin   {горшок}   setpencolor(clbrown);   setbrushcolor(clbrown);   line(52, 280, 110, 452);   line(110, 452, 196, 452);   line(196, 452, 243, 280);   line(243, 280, 52, 280);   {зальём горшок цветом}   floodfill(120, 400, clbrown);   {стебли}   setpenwidth(5);   setpencolor(clgreen);   line(58, 129, 127, 277);   line(142, 56, 142, 280);   line(229, 123, 164, 278);   {лепестки цветов}   setpencolor(clpurple);   line(44, 101, 29, 70);   line(45, 98, 67, 68);   line(55, 95, 55, 64);   line(55, 95, 74, 73);   line(71, 99, 83, 81);   line(71, 110, 95, 109);   line(73, 116, 92, 123);   line(60, 122, 83, 135);   line(50, 132, 48, 145);   line(49, 132, 33, 143);   line(41, 123, 19, 133);   line(43, 115, 13, 124);   line(44, 109, 14, 108);   line(37, 103, 17, 94);   line(136, 50, 131, 64);   line(135, 46, 117, 67);   line(125, 48, 98, 62);   line(135, 38, 102, 37);   line(130, 30, 103, 22);   line(128, 22, 112, 7);   line(146, 12, 155, -6);   line(158, 14, 166, -7);   line(159, 28, 175, 12);   line(163, 40, 191, 47);   line(158, 47, 172, 58);   line(147, 49, 162, 68);   line(134, 19, 129, 6);   line(218, 91, 210, 78);   line(216, 91, 198, 80);   line(225, 83, 213, 60);   line(243, 88, 240, 62);   line(251, 89, 267, 74);   line(255, 106, 278, 110);   line(245, 116, 264, 132);   line(238, 118, 248, 142);   line(231, 125, 232, 141);   line(219, 112, 197, 129);   line(219, 112, 183, 108);   {середины цветков}   setpencolor(clyellow);   setbrushcolor(clyellow);   circle(53, 116, 16);   circle(142, 37, 17);   circle(231, 103, 20); end.
4,5(87 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ