Циклы» Написать программу: 15 Напишите программу, которая в последовательности целых чисел определяет количество положительных чисел, кратных двенадцати . Программа получает на вход целые числа, количество введенных чисел неизв...
Циклы» Написать программу: 15 Напишите программу, которая в последовательности целых чисел определяет количество положительных чисел, кратных двенадцати . Программа получает на вход целые числа, количество введенных чисел неизвестно, последовательность чисел заканчивается числом ноль (ноль – признак окончания ввода, не входит в последовательность). Количество чисел не превышает 1000. Введенные числа по модулю не превышают 30000.
Гость
Ответ(ы) на вопрос:
Гостьа на каком языке программирования? на JavaScript: var i = 1; kratnoe = 0; while ( i < 1000) { i += 1; if ( i % 12 == 0) { kratnoe += 1; } } alert (kratnoe);
Гостьuses crt;
var i,s:integer;
begin
s:=0;
repeat
write('Vvedite chislo: ');
readln(i);
if ((i>0) and (i mod 12 = 0)) then inc(s);
until ((i=0 ) and (i< 1001) and (abs(i)<=30000));
writeln('count ',s);
readln;
end.
Не нашли ответ?
Похожие вопросы