Program kontr;
var a:integer;
begin
writeln ('Vvedite celoe chislo');
readln(a);
if (a mod 3 = 0) then writeln ('Da')
else writeln ('Net');
end.
Использовать Чертежник
алг
нач
опустить перо
сместиться на вектор(-2,0)
сместиться на вектор(2,2)
сместиться на вектор(0,-4)
<span>кон</span>
Var x,y:integer;
begin;
readln(x);
if x>0 then
begin;
y:=2*sqr(x)+5;
write(y);
end
else
begin;
y:=7*sqr(x)-5;
write(y);
end;
end.
Попробуй змейкой сначала вправо до конца потом вниз до конца и та по круговой и всё закрасишь понял?
Чтобы передавать информацию разного рода между удаленными устройствами связи