Program z1;Var Sum, a, i:integer;BeginSum:=0;5for i:=1 to 10 do begin read(a); if (a>=5) then Sum:=Sum+a; end;writeln(Sum);end.
здесь решение на паскале, с блок-схемами давно не работал, ты если что по программе составь, если что-то не понятно будет, то пиши в личку
var
i, k: integer;
begin
i:= 100;
k:= 0;
while i < 1000 do
begin
if (i * 2 mod 10 = 8) and (i * 3 mod 10 = 4) then write(i, ' ')
else k:= k + 1;
i:= i + 1;
end;
if k = 900 then writeln('Таких чисел не существует!');end.
П о р д а ы э к е н г ф й ц у я ч
5) 11001101₂+10000100₂=101010001₂;
6) 4251₈+6561₈=13032₈;
7) 9A3₁₆+A55₁₆=19F8;
8) 1011010₂-11111110₂=-1011010₂;
9) 1721₈-7402₈=-5461₈;
10) 43B₁₆-C08₁₆=-767₁₆.