ПОМОГИТЕ С ИКТ!!! ПАСКАЛЬ! ДАЮ 23 балла!_____________________________Задачка: Вводится
ПОМОГИТЕ С ИКТ!!! ПАСКАЛЬ! ДАЮ 23 балла!
_____________________________
Задачка: Вводится последовательность чисел, которая оканчивается 0. Определите количество и сумму чисел, которые кратны B. Если таких чисел нет, то сказать об этом. (решить необходимо с поддержкою цикла while)
2 ответа
Виталий Барухин
Var a, b, S, k: integer;beginS:=0;k:=0;readln(b);readln (a);while (alt;gt;0) do beginif (a mod b =0)then begin S:=S+1;k:=k+a;end;readln (a);end;if (Sgt;0) and (kgt;0)then writeln (S, ' ', k)else writeln ('таких чисел нет');end.
Egor Kumatrenko
var a, b, S, k: integer; begin S:=0; k:=0; readln(b); readln (a); while (a<>0) do begin if (a mod b =0) then begin S:=S+1; k:=k+a; end; readln (a); end; if (S>0) and (k>0) then writeln (S, ' ', k) else writeln ('таких чисел нет'); end.
Татьяна Атаева
//Pascal
//вариант с циклом while
var
a,b, n: integer;
begin
n:=0;
readln(b);
readln(a);
while alt;gt;0 do begin
if a mod b = 0 then n:=n+1;
readln(a);
end;
writeln(n);
end.
//вариант с циклом while
var
a,b, n: integer;
begin
n:=0;
readln(b);
readln(a);
while alt;gt;0 do begin
if a mod b = 0 then n:=n+1;
readln(a);
end;
writeln(n);
end.
Oksana Ivanova Omanova
а что обозначает n? нам же вроде необходимы переменные S и k
Юрсакова
Камилла
В условии очевидно указана только переменная В
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
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 причём
Геометрия.
Облако тегов