X : = 4 + 8 * 3 ; - то есть x=4+8*3 = 4+24 = 28
y : = ( x mod 10 ) + 15; // mod 10 - остаток от деления на 10. y = (28 mod 10)+15 = 8+15 = 23
<span>x : = ( y div 10 ) + 3 // div - целочисленное деление, (y div 10) + 3 = (28 div 10) + 3 = 2+3 = 5
Сумма переменных равна 23+5 = 28</span>
Const N:=30(любое значение);
var a:array[1....N] of integer;
begin
for i:=1 to N do begin
write ('A='); read (a[i]);
end;
c:=0;
for i:=1 to N do begin
if a[i] mod 3=0 then begin
c:=c+1;
end;
end;
write (c);
end.
A\/Ā=1, поэтому =1\/В/\С=1
var
a, b: <em>integer</em>;
begin
readln(a, b);
writeln(a - trunc(a / b) * b);
<span>end.</span>
<span>А: если лягушонок зеленый, то он веселый;
Б: все
пестренькие лягушата сидят на берегу.
1.Верно, т.к. А.
2.Может быть верно, т.к. не сказано, где сидят зелёные лягушата
3.Может быть верно, т.к. не сказано, что зелёные лягушата не могут все сразу не быть на берегу, и не сказано, что пёстренькие не могут все быть грустными.
4.Может быть верно, т.к. условия не исключают, что пёстренькие все сразу могут быть грустными.
5.Может быть верно, т.к. не сказано, что пёстренькие должны быть грустными.
6.Может быть верно, т.к. не сказано, где должны сидеть зелёные лягушата
7.Может быть, т.к. не сказано, что пёстренькие лягушата не могут быть все сразу грустными.
8.Не может быть верно, т.к. Б
9.Может быть верно, т.к. условия не исключают, что зелёные лягушата не могут все сразу не находится</span> на берегу.