ответ: тигры занесены в красную книгу, к ним нужно относиться бережно :-)
program ChetNechet;
var
A, B, chet, nechet, otvet, i: Integer;
begin
Write ('Введите А, В: ');
ReadLn (A, B);
chet := 0;
nechet := 0;
for i := A to B do begin
if i mod 2 = 0 then
Inc (chet)
else
Inc (nechet);
end;
otvet := chet - nechet;
WriteLn ('Четных: ', chet);
WriteLn ('Нечетных: ', nechet);
WriteLn ('ответ: ', otvet);
ReadLn;
end.
Объяснение:
цикл перебирает числа от А до В включительно.
если верхняя граница должна быть В + 1 то есть на 1 больше, то исправьте
2.
итерационные циклы
while, repeat - until
условие выполнения цикла может быть любым выражением, возвращающим тип Boolean
шаг изменения любой
цикл с параметром
for
начальное и конечное значения - целые числа
шаг изменения параметра равно 1
количество итераций = [конечная граница] - [начальная граница] + 1
3.
цикл с предусловием
while
минимальное количество итераций = 0 (случай, когда условие while не выполняется при первом проходе)
максимальное количество не ограничено
цикл с постусловием
repeat - until
минимальное количество итераций = 1 (условие выхода проверяется в конце цикла, хотя бы один раз цикл выполнится)
ответ: тигры занесены в красную книгу, к ним нужно относиться бережно :-)
program ChetNechet;
var
A, B, chet, nechet, otvet, i: Integer;
begin
Write ('Введите А, В: ');
ReadLn (A, B);
chet := 0;
nechet := 0;
for i := A to B do begin
if i mod 2 = 0 then
Inc (chet)
else
Inc (nechet);
end;
otvet := chet - nechet;
WriteLn ('Четных: ', chet);
WriteLn ('Нечетных: ', nechet);
WriteLn ('ответ: ', otvet);
ReadLn;
end.
Объяснение:
for i := A to B do begin
цикл перебирает числа от А до В включительно.
если верхняя граница должна быть В + 1 то есть на 1 больше, то исправьте
Объяснение:
2.
итерационные циклы
while, repeat - until
условие выполнения цикла может быть любым выражением, возвращающим тип Boolean
шаг изменения любой
цикл с параметром
for
начальное и конечное значения - целые числа
шаг изменения параметра равно 1
количество итераций = [конечная граница] - [начальная граница] + 1
3.
цикл с предусловием
while
минимальное количество итераций = 0 (случай, когда условие while не выполняется при первом проходе)
максимальное количество не ограничено
цикл с постусловием
repeat - until
минимальное количество итераций = 1 (условие выхода проверяется в конце цикла, хотя бы один раз цикл выполнится)
максимальное количество не ограничено