Sergeyy2002
№6 program m; var a, max, pupils, i: integer; ifNoanswer: boolean; begin ifNoanswer:=false; a:=0;
№7 в комментах как только напишу max:=0; readln(pupils); for i:=1 to pupils do begin readln(a); if a>max then max:=a else if a=0 then ifNoanswer:=true; end; writeln(max); if ifNoanswer=false then writeln('NO') else writeln('YES'); end.
Sergeyy2002
Немного криво условие на "оканчивается ли число на 6"
Sergeyy2002
Решение имеет место, но я ещё подумаю как оптимизировать
Sergeyy2002
program N7; var summa, a: integer; begin summa:=0; repeat readln(a); if (a mod 6 = 0) AND ((a mod 1 = 6) OR (a mod 10 = 6) OR (a mod 100 = 6)) then summa := summa + a; until a = 0; writeln(summa); end.
Answers & Comments
program m;
var
a, max, pupils, i: integer;
ifNoanswer: boolean;
begin
ifNoanswer:=false;
a:=0;
№7 в комментах как только напишу
max:=0;
readln(pupils);
for i:=1 to pupils do
begin
readln(a);
if a>max then
max:=a
else if a=0 then
ifNoanswer:=true;
end;
writeln(max);
if ifNoanswer=false then
writeln('NO')
else
writeln('YES');
end.
var
summa, a: integer;
begin
summa:=0;
repeat
readln(a);
if (a mod 6 = 0) AND ((a mod 1 = 6) OR (a mod 10 = 6) OR (a mod 100 = 6)) then
summa := summa + a;
until a = 0;
writeln(summa);
end.