Регистрация Спросить otvet5GPT
dlimfam
10.01.2020 02:48
Информатика
Есть ответ 👍

Написать программу на языке pascal определить сумму чисел вводимых с клавиатуры, причем только тех, которые кратны 5 и не кратны 2 повторюсь, программу на pascal

112
159
Посмотреть ответы 2

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

sophiexmartinez
sophiexmartinez
4,4(44 оценок)
Var n,a,s,i: integer; begin write('количество чисел = '); readln(n); writeln(n,' чисел: '); s: =0; for i: =1 to n do   begin   readln(a);   if (a mod 5=0)and(a mod 2< > 0) then s: =s+a;   end; writeln('s = ',s); end. пример: количество чисел = 10 10 чисел: 18 40 25 43 61 45 30 54 37 15 s = 85
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