Нужно на паскаль написать программку, которая будет из данного ряда чисел
Необходимо на паскаль написать программку, которая будет из данного ряда чисел (5,4,3,5,5,5,4) вычислять в столбец:
1) Сколько 5 в данном ряду.
2) Сколько 4 в данном ряду.
3) Сколько 3 в данном ряду.
2 ответа
Полина Машбиц
Если необходимо только эти числа(5,4,3,5,5,5,4), то вот программка.var b,c1,c2,c3:integer;a: array [1..7] of integer;i: byte;begina[1]:=5;a[2]:=4;a[3]:=3;a[4]:=5;a[5]:=5;a[6]:=5;a[7]:=4;for i:= 1 to 7 do
begincase a[i] of3: c1:=c1+1;4: c2:=c2+1;5: c3:=c3+1;end;end;writeln('Количество чисел 5 в данном ряду=',c3);writeln('Количество чисел 4 в данном ряду=',c2);writeln('Количество чисел 3 в данном ряду=',c1);end.
begincase a[i] of3: c1:=c1+1;4: c2:=c2+1;5: c3:=c3+1;end;end;writeln('Количество чисел 5 в данном ряду=',c3);writeln('Количество чисел 4 в данном ряду=',c2);writeln('Количество чисел 3 в данном ряду=',c1);end.
Илюха Харазия
Если необходимо только эти числа(5,4,3,5,5,5,4), то вот программка.
var b,c1,c2,c3:integer;
a: array [1..7] of integer;
i: byte;
begina[1]:=5;
a[2]:=4;
a[3]:=3;
a[4]:=5;
a[5]:=5;
a[6]:=5;
a[7]:=4;
for i:= 1 to 7 do
begin
case a[i] of
3: c1:=c1+1;
4: c2:=c2+1;
5: c3:=c3+1;
end;
end;
writeln('Количество чисел 5 в данном ряду=',c3);
writeln('Количество чисел 4 в данном ряду=',c2);
writeln('Количество чисел 3 в данном ряду=',c1);
end.
var b,c1,c2,c3:integer;
a: array [1..7] of integer;
i: byte;
begina[1]:=5;
a[2]:=4;
a[3]:=3;
a[4]:=5;
a[5]:=5;
a[6]:=5;
a[7]:=4;
for i:= 1 to 7 do
begin
case a[i] of
3: c1:=c1+1;
4: c2:=c2+1;
5: c3:=c3+1;
end;
end;
writeln('Количество чисел 5 в данном ряду=',c3);
writeln('Количество чисел 4 в данном ряду=',c2);
writeln('Количество чисел 3 в данном ряду=',c1);
end.
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Игорь 14 лет назад был на 8 лет моложе, чем его
Математика.
Два тела массами m1 и m2 находящие на расстоянии R друг
Физика.
В сосуде 4целых одна пятая литр воды что бы заполнить сосуд
Математика.
Двум малярам Диме И Олегу поручили выкрасить фасад дома они разделили
Разные вопросы.
найти порядковый номер 41Э если в ядре 20 нейтронов
Разные вопросы.
в ряду натуральных чисел 3, 8, 10, 24, … 18 одно
Математика.
Предприятие по производству с/хоз продукции на производство затратило 3527000 руб Валовый
Разные вопросы.
Математика, задано на каникулы. ВАРИАНТ 1004
НОМЕР 1,2,3,4,5,6,7,8.
Математика.
Имеются три конденсатора емкостью С1=1мкФ, С2=2мкФ и С3=3мкФ. Какую наименьшую емкость
Физика.
Из точки м выходят 3 луча MP MN и MK причём
Геометрия.
Облако тегов