Помогите составить блок схему к задачи Pascal
10-11 класс
|
program sdasdas;
var
a:array [1..10] of integer;
p,i:integer;
begin
randomize;
for i:=1 to 10 do
a[i]:=random(495)+5;
p:=1;
begin
for i:=1 to 10 do
if (a[i] mod 3=0) or (a[i] mod 9=0) then p:=p*a[i];
writeln('Произведение =',p);
end;
readln;
end.
Блок-схема к задаче Паскаль
Лучше бы ты блок-схемы рисовать учился, а не задницы в аватарки вставлять.
Другие вопросы из категории
Если z<y<x, то максимальное число возвести в квадрат. Если числа не
удовлетворяют ни одному из условий – обнулить их.
одной из кодировок Unicode, в которой каждый символ кодируется 16 битами.
учитывайте.
Как называется характеристика монитора, которая определяет, как именно отображается на нём цвет с заданным RGB-кодом?
Читайте также
Я не могу сочинить этот "алгоритм", помогите ;)
Блок-схемы строить не надо, просто описать, что надо делать.
l + πR2 + πr2 ; V = (1/3) π (R2 + r2 + Rr) h .
наибольшему элементу в этом массиве. Вывести значение наибольшего элемента.
у= если x<-3 то
y= √1 - x²
если 1,5<x-3, то
y= в числителе 1 в знаменателе модуль x +2
если x>1,5, то
y=tg x
Составить словесное описание алгоритма, составить блок схему, описать используемые элементы
2)построить блок схему которая меняет порядок цифр числа на обратный. например было 12345,стало 54321.