(30 БАЛЛОВ).Помогите написать ПРОГРАММУ ПО ИНФОРМАТИКЕ. Задана следующая задача: УДАЛИТЬ ПЕРВЫЙ ЭЛЕМЕНТ КРАТНЫЙ ТРЕМ (В Паскале).
Я плохо понимаю информатику,поэтому по возможности распишите программу целиком.
Я плохо понимаю информатику,поэтому по возможности распишите программу целиком.
More Questions From This User See All
Answers & Comments
const
n = 10;
var
a : array [1..n] of integer;
i,m : integer;
begin
for i := 1 to n do
a[i] := i;
m := 0;
i := 1;
while (m = 0)
and (i<=n) do
begin
if a[i] mod 3 = 0 then
begin
a[i] := 0;
m := 1;
end ;
i := i +1;
end;
for i := 1 to n do
writeln (a[i]);
end.