begin for i := 1 to 4 do begin readln(a); b := a; k := a; while (b > 0) do begin if (b mod 10 = 5) then begin k := 0; end; b := b div 10; end; sum := sum + k; end; writeln(sum); end.
0 votes Thanks 2
Sultanova20131
а можно с использованием процедур и с использованием функций.
Sultanova20131
эту же задачу нужно сделать с использованием:1) процедуры 2)функции.
Sultanova20131
или просто ответьте на вопрос: как можно узнать, содержит или нет число цифру 5.
Sultanova20131
var A,S,i:integer; procedure summ(a:integer;var s:integer); var k:integer; t:boolean; begin t:=false; k:=a; if k<10 then k:=k+10; repeat t:=(k mod 10=5); k:=k div 10; until (k=0) or t; if not t then s:=s+a; end; begin S:=0; for i:=1 to 4 do begin write(I,' число ='); readln(A); summ(A,S); end; writeln('S=',S); end.
Answers & Comments
var
i, k, b, a, sum: integer;
begin
for i := 1 to 4 do
begin
readln(a);
b := a;
k := a;
while (b > 0) do
begin
if (b mod 10 = 5) then
begin
k := 0;
end;
b := b div 10;
end;
sum := sum + k;
end;
writeln(sum);
end.
A,S,i:integer;
procedure summ(a:integer;var s:integer);
var
k:integer;
t:boolean;
begin
t:=false;
k:=a;
if k<10 then k:=k+10;
repeat
t:=(k mod 10=5);
k:=k div 10;
until (k=0) or t;
if not t then
s:=s+a;
end;
begin
S:=0;
for i:=1 to 4 do begin
write(I,' число =');
readln(A);
summ(A,S);
end;
writeln('S=',S);
end.