В одномерном массиве С(15) найти творенье и количество частей, которые одинаковы

В одномерном массиве С(15) найти творенье и количество элементов, которые равны 30

Задать свой вопрос
1 ответ

Код (Pascal)


var

c: array[1..15] of integer;

i, k: integer;

pr: longint;

begin

for i:=1 to 15 do

read(c[i]);

pr:=1;

k:=0;

for i:=1 to 15 do

if c[i]=30 then

begin

pr:=pr*3;

k:=k+1;

end;

if k=0 then pr:=0;

write(pr);

for i := 1 to k do write(0);

writeln(' ', k);

end.

Альшов Арсений
Для вас следовало бы использовать LongInt, ведь 30 может быть много.
Денис Хорчилава
Прошу прощения - давно не писал на паскале - в чём разница? Здесь в худшем случае нам могут дать 15 тридцаток, и тогда придётся длинную арифметику писать. Или приглядеться к питону)
Valja Tryshkina
Ваша программка дозволяет максимум 3 числа 30, их творенье, 30 = 27000. 4-ое число 30 даст 30 = 810000, а в интежер влазит только 32767.
Дейгена Борис
Спасибо, учту. Полагаюсь, вышлют на доработку.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт