)заранее напишите программу, которая решает следующую оплата интернета в школе состоит из двух частей: - id723468820230528 от artembebko666 28.05.2023 14:42

Question

Информатика: )заранее напишите программу, которая решает следующую оплата интернета в школе состоит из двух частей: 100 долларов в месяц за доступ и 5 долларов в месяц за поддержку школьного сайта. платеж можно делать независимо за любое количество месяцев за доступ и за поддержку сайта. напишите программу, которая позволяла бы вводить отдельно количество оплачиваемых месяцев для доступа и поддержки и выводила бы сумму оплаты.

artembebko666 · Accepted Answer

Программа, которая использует два массива

var
c, a: array[1..20] of integer;
i: integer;
begin
write('Первый массив ');
for i := 1 to 20 do   begin
c[i] := i * (-5);
write(c[i], ' ');
end;
writeln;
write('Преобразованный массив ');
for i := 1 to 20 do   begin
a[i] := c[20 - i + 1];
write(a[i], ' ');
end;
end.

ИЛИ Программа не использующая два массива, а просто переворачивающая первый

var
c: array[1..20] of integer;
i: integer;
begin write('Первый массив ');
for i := 1 to 20 do   begin
c[i] := i * (-5);
write(c[i], ' ');
end;
writeln;
write('Преобразованный массив ');
for i := 20 downto 1 do  write(c[i], ' ');
end.

Обе программы работают!

MOGZ ответил