Program kids;
var m,j,Summa:<em>integer</em>;
begin
writeln('На сколько мальчиков больше ?'); readln(m);
j:=15;
Summa:=j+(m+j);
writeln('В нашем классе ',Summa,' человек.');
readln;
end.
________
j - это сумма девочек, а m+j - это сумма мальчиков.
Var
x, y, z: integer;
begin
read(x, y, z);
if (x = y) and (y = z) and (x = z) then
begin
x := 3 * x;
y := 3 * y;
z := 3 * z;
write(x, y, z);
end
else
if (y = z) then
begin
x := -x;
y := -y;
z := -z;
write(x, y, z);
end
else
begin
x := 222;
y := 222;
z := 222;
write(x, y, z);
end;
end.
<span>г) совокупность способностей, знаний, умений и навыков, связанных с пониманием закономерностей информационных процессов в природе, обществе и технике, с современными информационными и коммуникационными технологиями, со способностью и умением использовать средства информационных и коммуникационных технологий при решении задач своей практической деятельности;</span>
закрасить
нц пока сверху свободно
вверх
кц
нц пока справа свободно
вправо
кц
нц пока не(справа свободно)
закрасить
вниз
кц
Если в Паскале то вот должно работать !
BAR i,s:integer;
BEGIN
s:=0;
for i:=1 to 100 do
if i mod 2 = 0 then s:=s+i;
writeln(s);
<span>END.</span>