Найти все элементы массива целых чисел, удовлетворяющих условию: остаток от деления на 5 равен 3

224

306

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

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

Mara1111176

Информатика

4,4(80 оценок)

Program gt; var a: array[1..100]of integer; begin readln(n); for i: =1 to n do read(a[i]); for i: =1 to n do if(a[i] mod 5=3)then writeln(a[i]); end.

Sambufer1

Информатика

4,5(37 оценок)

рисунки кодируются с следующих команд:

установить х, у — установить в качестве текущей точку с координатами (х, у);

линия к х1, у1 — нарисовать линию от текущей точки до точки с координатами (х, у), при этом точка (х1, у1) становится текущей;

окружность х, у — нарисовать окружность с центром в точке (x, у) и радиусом ;

прямоугольник х1, у1, х2, у2 — нарисовать прямоугольник, где (x1, у1) — координаты левого верхнего, а (х2, у2) — правого нижнего угла этого прямоугольника.

по имеющимся описаниям восстановите рисунки.

описание

установить 60, 20

линия к 20, 60

линия к 180, 60

линия к 140, 20

линия к 60, 20

прямоугольник 60, 80, 100, 60

прямоугольник 100, 120, 150, 60

окружность 140, 40, 10

описание

установить 20, 50 линия к 40, 70 линия к 50, 70 линия к 90, 110 линия к 120, 120 линия к 110, 90 линия к 70, 50 линия к 70, 40 линия к 50, 20 линия к 50, 40 линия к 40, 50 линия к 20, 50 окружность 80, 80, 10 окружность 100, 100, 10

описание

установить 20, 80 линия к 65, 110 линия к 110, 80 линия к 20, 80 прямоугольник 20, 30, 110, 10 прямоугольник 30, 80, 40, 30 прямоугольник 50, 80, 60, 30 прямоугольник 70, 80, 80, 30 прямоугольник 90, 80, 100, 30

описание

установить 30, 40 линия к 40, 10 линия к 60, 10 линия к 70, 40 прямоугольник 20, 50, 80, 40 установить 50, 50 линия к 50, 80 окружность 40, 80, 10 окружность 60, 80, 10 окружность 30, 100, 10 окружность 50, 100, 10 окружность 70, 100, 10 окружность 40, 120, 10 окружность 60, 120, 10