Uses graphabc;
begin
rectangle(100,100,400,400);
circle(100,100,50);
circle(400,100,50);
circle(100,400,50);
circle(400,400,50);
<span>end.</span>
Возможно, что гиперссылки
Ответ:
Логическое выражение
Объяснение:
Логическое выражние, булевые, boolean. Все они имеют 2 значения "Истина" = 1, True и "Ложь" = 0, False
ТАК ДЕРЖАТЬ
вот что зашифровано
3. pascal
var s, a: integer;
g:longint;
begin
s:=0;
readln(g);
while g > 0 do
begin
a:=g mod 10;
g:=g div 10;
s:=s+a;
end;
writeln(s)
end.