Var
num, sum, k: integer;
begin
sum := 0;
read(k);
for num := 2 to k do if num mod 2 = 0 then sum += num;
write(sum);
end.
program tri_chisla;
var a,b,c:integer;
begin
writeln ('Vvedit tri chisla a,b,c');
readln (a,b,c);
If (a<b) and (a<c) then
writeln ('Naymenshim chislom e - ',a)
else begin If (b<a) and (b<c) then
writeln ('Naymenshim chislom e - ',b)
else begin If (c<b) and (c<a) then
writeln ('Naymenshim chislom e - ',c) end; end;
//Я немного не понял какую именно блок схему тебе нужно.
readln
end.
const N =7;var a, k, i:integer;begink:=0;for i:=1 to n do beginreadln(a);if a mod 10<>2 thenk:=k+a;end;writeln(k);end.
2байта на каждый символ, если это юникод, в слове информация - 10 букв(символов), значит 20 байт
в задании под а лишнее2,так как все числа нечетные,а 2 четное
в задании под б 37, так как все остальные числа начинаются на 24,29,22,25,28