Паскаль!!!
С помощью цикла while
Запросить число, записать его в первый элемент массива. Остальные 9 элементов создать по такой формуле: каждый следующий элемент вдвое больше предыдущего. Вывести массив.
С помощью цикла while
Запросить число, записать его в первый элемент массива. Остальные 9 элементов создать по такой формуле: каждый следующий элемент вдвое больше предыдущего. Вывести массив.
More Questions From This User See All
Answers & Comments
Pascal ABC.
Код:
var
a: array [1..10] of integer;
i:integer;
begin
readln(a[1]);
i := 2;
while i < 11 do begin
a[i] := a[i-1] * 2;
inc(i);
end;
i := 1;
while i < 11 do begin
write(a[i], ' ');
inc(i);
end;
writeln;
end.
Пример работы:
Ввод:
6
Вывод:
6 12 24 48 96 192 384 768 1536 3072
Ввод:
3
Вывод:
3 6 12 24 48 96 192 384 768 1536