Нужен перевод в паскаль вопрос жизни или смерти
a = int(
b = int(
chet = 0
nechet = 0
otvet = 0
for i in range(a, b+1):
if i % 2 == 0:
chet += i
else:
nechet += i
otvet = chet - nechet
print('четных: ', chet)
print('нечетных: ', nechet)
print('ответ: ', otvet)
ответ: тигры занесены в красную книгу, к ним нужно относиться бережно :-)
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 больше, то исправьте