Дан массив из 30 четырехзначных чисел .Числа кратные своему номеру заменить 1, в противном случае заменить 0
Ответы:
21-02-2013 01:18
const n=30var a:array of [1..n] of integer;i,k,l:integer;beginrandomize;for i:= 1 to n do a[i]:=random(9000)+1000;for i:= 1 to n do beginif a[i] mod i = 0 then a[i]:=1 else a[i]:=0;writeln(a[i]);end;end.
⭐⭐⭐⭐⭐ Лучший ответ на вопрос «Дан массив из 30 четырехзначных чисел .Числа кратные своему номеру заменить 1, в противном случае заменить 0» от пользователя Малика Бакулева в разделе Экономика. Задавайте вопросы и делитесь своими знаниями.
Открой этот вопрос на телефоне - включи камеру и наведи на QR-код!