Var
n:longint;
k,sum:integer;
begin
write ('N = ');
readln(n);
k:=0;
sum:=0;
while n <> 0 do
begin
if (n mod 10) mod 2 = 0 then
begin
k:=k+1;
sum:=sum+(n mod 10);
end;
n:=n div 10;
end;
writeln ('Summa: ',sum);
writeln ('Kol-vo: ',k);
readln;
end.
Пример выполнения сопряжения с другого задания, но алгоритм ваших действий, должен быть тот же.
<span>Дозирование нагрузок, наверное. Имеется в виду частота конкретных тренировок, количество повторений в упражнении и количество самих упражнений.</span>
4,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
Друг - это надёжный товарищ. На которого всегда можно положиться. Если тебе нужна помощь, то настоящий друг всегда поддержит и найдёт выход из сложившейся ситуации. В моем представлении мой друг современник организованный и ответственный. Близость которая связывает нас с моим другом это общие воспоминания, как хорошие так и плохие. Всё то что мы с ним пережили сделало нашу дружбу прочной. Её закалили испытания, разногласия, но все равно мы всегда приходили к общему мнению и принимали свои ошибки. Друг это тот человек, который тебя не обманывает, как бы не горка была бы правда он всегда скажет её тебе. Искренность, доброта, честность, иногда самопожертвование, вот главные качества настоящей крепкой дружбы. Цените своих друзей. Как говорится не имей сто рублей, а имей сто друзей!
