В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Elena407008
Elena407008
01.07.2020 03:11 •  Информатика

Как я понял язык Паскаль)
Напишите программу для следующих задач
1) в последовательности целых чисел определить количество нечётных чисел, кратных 3. Количество введённых чисел неизвестно, но после ввода 0 ввод чисел заканчивается. Программа должна вывести два числа: длину последовательности (завершающий 0 не учитывается) и количество нечётных чисел, кратных 3.
2) В последовательности целых чисел определить их количество и сумму чётных чисел. Количество введённых чисел неизвестно, но после ввода 0 ввод чисел заканчивается. Программа должна вывести два числа: длину последовательности и сумму чётных чисел.
3) В последовательности целых чисел определить их количество и подсчитывает сумму положительных чётных чисел, не превосходящих 256. Количество введённых чисел неизвестно, но после ввода 0 ввод чисел заканчивается. Программа должна вывести два числа: длину последовательности и сумму положительных чётных чисел, не превосходящих 256
4) В последовательности натуральных чисел определяет количество всех чётных чисел, кратных 5. Количество введённых чисел неизвестно, но после ввода 0 ввод чисел заканчивается. Программа должна вывести одно число: количество всех чётных чисел, кратных 5.
5) В последовательности натуральных чисел определяет количество всех чётных чисел, кратных 9. Количество введённых чисел неизвестно, но после ввода 0 ввод чисел заканчивается. Программа, должна вывести одно число: количество всех чётных чисел, кратных 9.

Показать ответ
Ответ:
МарияLevkivska
МарияLevkivska
02.06.2023 09:12
Uses graph; var gd,gm,c,i:integer;     p:array[1..12] of Pointtype; begin gd:=detect; initgraph(gd,gm,''); setcolor(10); circle(340,105,50); Setfillstyle(1,10); fillellipse(340,105,50,50); setcolor(12); circle(290,170,50); Setfillstyle(1,12); fillellipse(290,170,50,50); setcolor(13); circle(390,190,50); Setfillstyle(1,13); fillellipse(390,190,50,50); p[1].x:=240;p[1].y:=190; p[2].x:=440;p[2].y:=190; p[3].x:=440;p[3].y:=240; p[4].x:=345;p[4].y:=265; p[5].x:=345;p[5].y:=365; p[6].x:=440;p[6].y:=390; p[7].x:=240;p[7].y:=390; p[8].x:=335;p[8].y:=365; p[9].x:=335;p[9].y:=265; p[10].x:=240;p[10].y:=240; p[11].x:=p[1].x;p[11].y:=p[1].y; setcolor(11); moveto(p[1].x,p[1].y); for i:=1 to 11 do lineto(p[i].x,p[i].y); Setfillstyle(1,11); fillpoly(11,p); readln end.
0,0(0 оценок)
Ответ:
Аня8785
Аня8785
02.06.2023 09:12
Uses graph; var gd,gm,c,i:integer;     p:array[1..12] of Pointtype; begin gd:=detect; initgraph(gd,gm,''); setcolor(10); circle(340,105,50); Setfillstyle(1,10); fillellipse(340,105,50,50); setcolor(12); circle(290,170,50); Setfillstyle(1,12); fillellipse(290,170,50,50); setcolor(13); circle(390,190,50); Setfillstyle(1,13); fillellipse(390,190,50,50); p[1].x:=240;p[1].y:=190; p[2].x:=440;p[2].y:=190; p[3].x:=440;p[3].y:=240; p[4].x:=345;p[4].y:=265; p[5].x:=345;p[5].y:=365; p[6].x:=440;p[6].y:=390; p[7].x:=240;p[7].y:=390; p[8].x:=335;p[8].y:=365; p[9].x:=335;p[9].y:=265; p[10].x:=240;p[10].y:=240; p[11].x:=p[1].x;p[11].y:=p[1].y; setcolor(11); moveto(p[1].x,p[1].y); for i:=1 to 11 do lineto(p[i].x,p[i].y); Setfillstyle(1,11); fillpoly(11,p); readln end.
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота