dashasuslova007
11.03.2020 01:09

Составить циклический алгоритм с условием и построить таблицу трассировки. Вводятся две переменные x,y. Переменным r присваивается значение X. Переменной q присваивается значение 0. Происходит проверка цикла с условием. ЕСЛИ r>=y, то r:=r-y, q:=q+1, иначе вывести значение r и q.

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
vedernikowadia
21.02.2023 17:40

В настоящее время актуальными проблемами государственного и муниципального управления являются: реформирование органов власти, реализация целевых государственных программ, управления государственной и муниципальной собственностью, особенности региональной и муниципальной политики в современной России.

Решая проблемы защиты информации, большинство государственных организаций сталкивается с острым дефицитом специалистов в этой области. Особенно остро этот вопрос стоит в малых субъектах федерации, где отсутствуют научно-промышленные центры. Поскольку повышение квалификации специалиста в Москве или других крупных городах России стоит немалых денег, встает вопрос о целесообразности формирования государственной системы повышения квалификации и переподготовки специалистов по информационной безопасности для бюджетных организаций.

Кроме того, большое значение имеет уровень информационной подготовки государственных служащих. Представляется необходимым уже сейчас приступить к перестройке системы переподготовки и повышения квалификации государственных служащих, которая бы работала с некоторым опережением.

Объяснение:

0,0(0 оценок)
Ответ:
viktoriakeda
07.05.2021 06:53

uses Drawman;

var i,x,y: integer;

begin

Field(13,13);

for i:=0 to 3 do

begin

 x:=1+i;

 y:=3+i;

 ToPoint(x,y);

 PenDown();

 ToPoint(x+2,y);

 ToPoint(x+2,y-2);

 PenUp;

end;

for i:=0 to 3 do

begin

 x:=1+i;

 y:=10-i;

 ToPoint(x,y);

 PenDown();

 ToPoint(x+2,y);

 ToPoint(x+2,y+2);

 PenUp;

end;

for i:=0 to 3 do

begin

 x:=10-i;

 y:=1+i;

 ToPoint(x,y);

 PenDown();

 ToPoint(x,y+2);

 ToPoint(x+2,y+2);

 PenUp;

end;

for i:=0 to 3 do

begin

 x:=10-i;

 y:=12-i;

 ToPoint(x,y);

 PenDown();

 ToPoint(x,y-2);

 ToPoint(x+2,y-2);

 PenUp;

end;

ToPoint(0,0);

end.

0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота