найдите ошибку в программке. она нужна, чтобы в последовательности чисел, отыскать
Найдите ошибку в программке. она нужна, чтоб в последовательности чисел, находить четные числа, кратные трем. и выдавать количество этих чисел
program abc;
var col, a : integer;
BEGIN
col:=0;
readln (a);
if ((alt;gt;0) and (a mod 3=0) and (a mod 2 =0)) then
col:=col+1;
if alt;gt;0 then
begin
while alt;gt;0 do
readln (a);
if (a mod 3=0) and (a mod 2 =0) then
col:=col+1;
end;
writeln ('количество ',col);
end.
Лариса Плистик
Программка работает же
Кристина
работает, но некорректно. Я уже сам совладал. Там после While надобно было бегин и энд вводить.
1 ответ
Илюша Козелькин
Программка рабочая, быстрее всего ты просто вводил элементы в строчку, а у тебя стоит в чтении переход на новейшую строчку(окончание LN), и паскаль просто не лицезрел никакие числа, не считая первого.
И очень муторный и непонятный код, я переписал чуть-чуть:
var
col, a: integer;
begin
col := 0;Read(a);
while a lt;gt; 0 do
begin
read(a);
if (a mod 3 = 0) and (a mod 2 = 0) then
col := col + 1;
end;
writeln('количество ', col);
end.
Пример:
6 12 9 36 0
количество 3
И очень муторный и непонятный код, я переписал чуть-чуть:
var
col, a: integer;
begin
col := 0;Read(a);
while a lt;gt; 0 do
begin
read(a);
if (a mod 3 = 0) and (a mod 2 = 0) then
col := col + 1;
end;
writeln('количество ', col);
end.
Пример:
6 12 9 36 0
количество 3
Lilija Kotishevskaja
Да, правда я пренебрегал указать, что количество чисел не дано, и когда вводится 0, последовательность заканчивается
Эльвира Фрактер
Ну, у меня не вводится количество чисел...
Artem
ну там по хоть какому цикл while обязан быть
Денис Петен
а все увидел
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
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 причём
Геометрия.
Облако тегов