var
a,b,c,count:integer;
begin
count:=0;
readln (a,b,c);
if (a mod 2=0) then count:=count+1;
if (b mod 2=0) then count:=count+1;
if (c mod 2=0) then count:=count+1;
writeln (count);
end.
1) 157 х 99 = 15543 (пикселей) - всего
2) 15543 х 4 = 62172 (бита)
Var a,b,c,d,x: Real;
begin
writeln('Введите a,b,c,d');
readln(a,b,c,d);
x:=a/(b+c)-d;
writeln(x);
end.
Var a,b,c:real;
begin
writeln('введите значения трех углов:');
readln(a,b,c);
if (a+b+c)<>180 then writeln('введены некорректные данные')else
if (a=90)or(b=90)or(c=90) then writeln('прямоугольный')else
if (a=b)and(b=c) then writeln('равносторонний')else
if (a=b)or(b=c)or(a=c) then writeln('равнобедренный')else
writeln('разносторонний')
end.
Из буффера обмена можно вставлять неограниченное количество раз одного фрагмента, пока он не будет замещён фрагментом другого текста
в буффер обмена можно поместить только один фрагмент текста, т.к. при помещении фрагмента текста в буффер обмена, предыдущий фрагмент, который хранился в буффере обмена, удаляется.