Сумма четных отрицательных двухзначных чисел

@Phiona · Регистрация: 08.10.2013

Author24 — интернет-сервис помощи студентам

Найти сумму всех отрицательных четных двузначных чисел.

Pascal

Program Primer1;
 
var x,i,s:word; 
begin 
s:=0; 
for i:=10 to 99 do if i mod 2=0 then s:=s+i; 
writeln(s); 
end.

считает как не отрицательные,как изменить?

@Вадим Мошев · 21.01.2015, 19:38

После завершения работы цикла найденную сумму умножьте на минус один и всё. (s:=-s) Правда, надо будет ещё типы переменных поменять. Word замените, например, на integer

@vint-81 · 21.01.2015, 19:42

Сообщение от Вадим Мошев

найденную сумму умножьте на минус один и всё.

зачем?

Pascal

7	writeln(-s);

и типы менять не надо...

@Phiona · 21.01.2015, 19:47 **[ТС]**

а как сделать,чтоб при этом оно выводило все нужные числа
а потом писало результат?

@Вадим Мошев · 21.01.2015, 19:50

изменить цикл следующим образом

Pascal

for i:=10 to 99 do
    if i mod 2=0 
        then
            begin
                writeLn(-i);
                s:=s+i;
            end;

@vint-81 · 21.01.2015, 19:51

Сообщение от Phiona

а как сделать,чтоб при этом оно выводило все нужные числа
а потом писало результат?

Pascal

6	for i:=10 to 99 do if i mod 2=0 then begin write(-i,' ');s:=s+i end; writeln;

@Вадим Мошев · 21.01.2015, 19:53

А вообще, можно использовать цикл while, например, и вообще обойтись проверки на чётность через if

Добавлено через 1 минуту
Phiona, если есть желание, подумайте, как это можно реализовать.

@vint-81 · 21.01.2015, 19:56

Сообщение от Вадим Мошев

А вообще, можно использовать цикл while

не обязательно while...

Pascal

6	for i:=5 to 49 do begin write(-i2,' ');s:=s+i2 end; writeln;

@Вадим Мошев ^ 425 / 50 / 16 Регистрация: 23.07.2014 Сообщений: 299
	21.01.2015, 19:38	2
	После завершения работы цикла найденную сумму умножьте на минус один и всё. (s:=-s) Правда, надо будет ещё типы переменных поменять. Word замените, например, на integer 1

@Phiona 16 / 2 / 6 Регистрация: 08.10.2013 Сообщений: 258
	21.01.2015, 19:47 [ТС]	4
	а как сделать,чтоб при этом оно выводило все нужные числа а потом писало результат? 0

@Вадим Мошев ^ 425 / 50 / 16 Регистрация: 23.07.2014 Сообщений: 299
	21.01.2015, 19:53	7
	А вообще, можно использовать цикл while, например, и вообще обойтись проверки на чётность через if Добавлено через 1 минуту Phiona, если есть желание, подумайте, как это можно реализовать. 0

	21.01.2015, 19:56