сервис вопросов и ответовПомогите ,пожалуйста,составить блок-схему. Program qqq; Var a:array[0…9] of byte; n,k: integer; j: byte; begin readln(n); for j:=0 to 9 do a[j]:=0;
10-11 класс|
|
while n>0 do begin k:=n mod 10; n:=n div 10; inc (a[k]); end; for j:=0 to 9 do if a[j].0 then writeln (j, a[j]); for j:=0 to 9 do if a[j]=0 then writeln(j); end.
Poooooliiiiiinaaaaaa
17 нояб. 2014 г., 0:48:59 (9 лет назад)
Milachka80
17 нояб. 2014 г., 1:21:50 (9 лет назад)
См. вложение
_________________________
Ответить
Другие вопросы из категории
Дан целочисленный массив из 30 элементов. Элементы массива могут принимать значения от –1000 до 1000. Опишите на русском языке или на одном из языков
программирования алгоритм, который находит и выводит среднее арифметическое всех элементов массива, оканчивающихся цифрой 5. Гарантируется, что хотя бы один такое элемент в массиве есть.
НАРОД ПОМОГИТЕ ПОЖАЛУЙСТА
Сколько секунд потребуется обычному модему, передающему сообщения со скоростью 28800 бит/с, чтобы передать цветное растровое изображение размером 640х480
пикселей, при условии, что цвет каждого пикселя кодируется тремя байтами?
Помогите с домашней работой!!
Очень срочно!!! распишите пожалуйста все.
Читайте также
Определить все простые двузначные числа. Есть предположение, что решается именно так, помогите пожалуйста составить блок-схему. Program
example14;
Var i:
integer; function prost(i: integer): boolean;
var j:integer;
begin prost := true; i:=abs(i); for j := 2 to (i div 2) do if (i mod j = 0) then prost := false; end;
begin for i := 10 to 99 do if prost(i) = true then write(i:5);
readln(i);
end.
Помогите составить блок схему к задачи Pascal
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.
Помогите, пожалуйста, составить блок-схему к задаче!! Задача. Вычислить площадь поверхности и объем усеченного конуса по следующим формулам S = π (R + r)
l + πR2 + πr2 ; V = (1/3) π (R2 + r2 + Rr) h .
Помогите пожалуйста составить блок-схему! Даже мыслей в голове нет по поводу того, как строить!
Дано натуральное n и действительное x. Вычислить значение суммы
Вы находитесь на странице вопроса "Помогите ,пожалуйста,составить блок-схему. Program qqq; Var a:array[0…9] of byte; n,k: integer; j: byte; begin readln(n); for j:=0 to 9 do a[j]:=0;", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.