Вопрос по информатике:
Помогите как составить эту программу вычисления чисел кратных не только 2 но и 3.
var x,y: integer ;
begin
y:=0;
For x:= 10 to 99 do
if x mod 2=0 then
y:=y+1;
writeln ('количество чисел, кратных 2, равно ', y);
end.
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 12.09.2017 09:28
- Информатика
- remove_red_eye 17364
- thumb_up 31
Ответы и объяснения 1
Program aliona;
var
n,k,i:integer;
begin
writeln('n=');
readln(n);
k:=0;
for i:=1 to n do
if (i mod 2=0)and (i mod 3=0)
then
inc(k);
writeln('k=',k);
readln;
end.
- 13.09.2017 16:40
- thumb_up 15
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.