Yourname756
16.04.2020 11:16

Pascal ABC
Дан целочисленный массив из n элементов. Элементы массива могут принимать неотрицательные целые значения до 10 000 включительно (это проверять не нужно). Необходимо найти минимальный кратный 3 и минимальный кратный 5 элемент массива. Затем необходимо уменьшить каждый кратный 3 и кратный 5 на соответствующий им минимум. При этом кратные 15 должны быть уменьшены на сумму этих минимумов. В качестве результата необходимо вывести изменённый массив в строку.
Например, для исходного массива из девяти элементов:
5 9 10 11 12 13 14 15 16
программа должна вывести следующий массив
0 0 5 11 3 13 14 1 16
(Минимальный кратный трём равен 9, минимальный кратный 5 равен 5. Все кратные трём уменьшены на 9, всё кратные пяти уменьшены на 5, все кратные пятнадцати уменьшены на 14)

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
ellykhrom
11.03.2021 03:10
Видеопамять и дисплейный процессор
Видеоадаптер — устройство, управляющее работой графического дисплея.Видеоадаптер состоит из двух частей: видеопамяти и дисплейного процессора.
Видеопамять предназначена для хранения видеоинформации — двоичного кода изображения, выводимого на экран. В видеопамяти содержится информация о состоянии каждого пикселя экрана.Видеопамять — это электронное энергозависимое запоминающее устройство. На современных компьютерах ее размер составляет несколько мегабайтов. Дисплейный процессор — вторая составляющая видеоадаптера.Дисплейный процессор читает содержимое видеопамяти и в соответствии с ним управляет работой дисплея.
0,0(0 оценок)
Ответ:
20Iulia
22.09.2022 01:23
Может так?..
а)
Program tt;
var t,z,x,y:integer;
begin 
writeln ('Введите x, z, y');
read (x,z,y);
t:=z+x+y;
if x>0 then
Writeln (t,' = TRUE')
else
Writeln (t,' = FALSE')
end.
б)
Program tt;
var t,z,x,y:integer;
begin 
writeln ('Введите x, z, y');
read (x,z,y);
t:=z+x+y;
if (x=y) or (y=z) or (x=z) then
Writeln (t,' = TRUE')
else
Writeln (t,' = FALSE')
end.
в)
Program tt;
var  A,B,C,t: Real;
begin      
Writeln ('Введите коэффициенты: A B C');      
Readln(A,B,C);     
t := B * B - 4 * A * C;
if t < 0 then 
Writeln (t,' = TRUE')
Else
Writeln (t,' = FALSE')
End.      
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота