НУЖЕН ПЕРЕВОД В ПАСКАЛЬ СРОЧНО ПОЖАЛУЙСТА ВОПРОС ЖИЗНИ ИЛИ СМЕРТИ
A = int(input())
B = int(input())
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)
A = int(input())
B = int(input())
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)
More Questions From This User See All
Answers & Comments
Verified answer
Ответ: тигры занесены в красную книгу, к ним нужно относиться бережно :-)
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 больше, то исправьте