Var
i, x, sum, n: integer;
begin
read(n);
for i:=1 to n do begin read(x); if x mod 2=0 then sum:=sum+x end;
writeln(sum);
end.
А) осталось 3 стакана
б) осталось две свечи, остальные сгорели
в) День и ночь заканчиваются мягким знаком. Лето кончается, а осень начинается буквой О
1.
var k:integer;
p,p1:string;
begin
k:=5;
write ('Введите пароль: ');
readln(p);
while k>=1 do
begin
write ('Подтвердите пароль: ');
readln(p1);
if p=p1 then
begin
writeln ('Вход в систему разрешен');
k:=0
end
else
k:=k-1
end
end.
2.
var a,s:integer;
begin
write ('Введите число: ');
readln(a);
while a>0 do
begin
s:=s+a mod 10;
a:=a div 10
end;
write ('Сумма цифр: ',s);
end.