Var n,k,s:integer;
begin
Writeln ('вводи числа, по окончанию введи 9999');
while n<9999 do
begin
readln (n);
if (n>0) and (n mod 10=6) then
begin
inc(k);
s:=s+n;
end;
end;
writeln ('кол-во=',k);
writeln ('сумма=',s);
end.
Здесь очень не понятная блок схема если здесь просто два условия if то выполнится первое условие у просто программа выведет что y=100 если же это цикл while то эта программа уравнивает числа то есть она прекращает свою работу когда числа равны и тогда y=25
<span>Для выполнения деления двух простых дробей следует умножить делимое на дробь, обратную делителю. Эту дробь по-другому называют еще перевернутой, потому что она получается в результате замены местами числителя и знаменателя.</span>
Ну их очень много,самый крутой сис. блок стоит где-то 200 тыс. руб