Регистрация
diana1140
16.09.2021 06:07
Информатика
Есть ответ 👍

ПРОГРАММУ В ПАСКАЛЕ И БЛОК-СХЕМУ Дан массив, содержащий 20 положительных целых чисел, не превышающих 30 000. Необходимо найти в этом массиве количество элементов, которые кратны 3, а их десятичная запись заканчивается цифрой 1, и заменить каждый из таких элементов на это количество. Напишите программу для решения этой задачи. В качестве результата программа должна вывести изменённый массив, по одному элементу в строке. Например, для исходного массива из 5 элементов
15 71 21 111 41
программа должна вывести (по одному числу в строке) числа
15 71 2 2 41.

247
300
Посмотреть ответы 1

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

milana20123
milana20123
4,5(40 оценок)
Vari: integer; procedure f(x: integer); beginwriteln('x = ', x, ' y = ', x*x + 8*x + 16); end; beginfor i: = -4 to 4 do  f(i); end. результат: x = -4 y = 0x = -3 y = 1x = -2 y = 4x = -1 y = 9x = 0 y = 16x = 1 y = 25x = 2 y = 36x = 3 y = 49x = 4 y = 64

Популярно: Информатика