1. рассчитайте стоимость стоматологических услуг по данным представленной таблицы.2. используйте при - id147629020220402 от Эмиральд 02.04.2022 20:20

Question

Информатика: 1. рассчитайте стоимость стоматологических услуг по данным представленной таблицы.2. используйте при расчете курс доллара (взять из интернета) и процент повышения цены (произвольно) для расчета необходимых значений.3. рассчитайте итоговые значения при необходимости добавив в таблицу необходимые данные.стоимость стоматологических услугвиды деятельности старая цена в $ новая цена в $ с повышенным %-ом новая цена в ₱ курс $ % повышения ценыоформление документа на первичного больного $3,00 пломбирование

Эмиральд · Accepted Answer

// Дан массив целых чисел. Все нечетные элементы удвоить, а четные уменьшить вдвое.

var a: array [1..10] of real; // возьмем массив из 10 чисел
i,x :byte;
begin
randomize;
for i:=1 to 10 do //заполняем исходный массив случайными числами (до 1000)
begin
a[i]:=random(1000);
writeln (i,' элемент исходного массива ',a[i]);
end;
writeln ();
for i:=1 to 10 do
begin
x:=i mod 2; //определяем четный или нет элемент массива
if x=0 then //если элемент четный
begin
a[i]:=a[i]/2;
writeln (i,' элемент массива - четный ',a[i]);
end
else //если элемент нечетный
begin
a[i]:=a[i]*2;
writeln (i,' элемент массива - нечетный ',a[i]);
end;
end;
end.

MOGZ ответил