Атрибут - изменяемые свойства рисунка - длина,ширина,цветность.
Var summa,count,numb :integer;
begin
summa:=0;
count:=0;
readln(numb);
while numb <> 0 do
begin
if numb mod 17 = 0 then
begin
summa:=summa+numb;
count:=count+1;
end;
readln(numb);
end;
if (summa > 0) and (count > 0) then
writeln(summa,' ',count)
else
writeln('No');
end.<span>
</span>
Var A:integer;
Begin
WriteLn('Введи двузначное число');
Read(A);
if (A mod 10 + A div 10) mod 2 = 0 then Write('Сумма цифр чётная')
else Write('Сумма цифр НЕчётная')
End.
Цикл с параметром <span>используется, если известно начальное значение переменной, конечное значение и шаг ее изменения. цикл с параметром организует выполнение одного или нескольких операторов заданное, заранее известное, число раз</span>