Цитата:
Сообщение от пупс
Привет. ПОМОГИТЕ РЕШИТЬ ОДНУ ПРОБЛЕМУ. Вот условие программы:
Напечатать все целые числа из отрезка [1,100], сумма цифр которых является четным числом. Подсчет суммы цифр числа и определение их четности оформить в процедуре (входной параметр: целое число; выходной параметр: логическая переменная)
|
Программа, полностью удовлетворяющая поставленным условиям, выглядит, например, так:
Код:
uses
crt;
var
i:integer;
b:boolean;
procedure sum(a:integer; var bs:boolean);
var
s:integer;
begin
s:=0;
while a<>0 do
begin
s:=s+a mod 10;
a:=a div 10;
end;
If odd(s) then bs:=false else bs:=true;
end;
begin
clrscr;
for i:=1 to 100 do
begin
sum(i,b);
if b then write(i,' ');
end;
readln
end.