Khlustikova_Borisovna
?>

Исполнитель чертёжник пе ре ме ща ет ся на ко ор ди нат ной плоскости, остав ляя след в виде линии. чертёжник может вы пол нять ко ман ду сместиться на (a, b) (где a, b – целые числа), пе ре ме ща ю щую чертёжника из точки с ко ор ди на та ми (x, y), в точку с ко ор ди на та ми (x+a, y+b если числа a, b положительные, зна че ние со от вет ству ю щей ко ор ди на ты увеличивается, если от ри ца тель ные — уменьшается. например, если чертёжник на хо дит ся в точке с ко ор ди на та ми (1, 1), то ко ман да сместиться на (–2, 4) пе ре ме стит его в точку (–1, 5). запись повтори k раз команда1 команда2 команда3 конец означает, что по сле до ва тель ность ко манд команда1 команда2 команда3 по вто рит ся k раз. чертёжнику был дан для ис пол не ния сле ду ю щий алгоритм: сместиться на (–3, –6) повтори 3 раз команда1 сме стить ся на (2, –5) сме стить ся на (3, 3) конец какую ко ман ду надо вы пол нить чертёжнику вме сто ко ман ды команда1, чтобы вер нуть ся в ис ход ную точку, из ко то рой он начал движение? ​

Информатика

Ответы

Avshirokova51
Var ababab,bababa,sususumamama: integer; begin writeln('перед вами программа для нахождения суммы всех натуральных чисел заданного диапазона'); write(' введите наименшее число диапазона '); readln(ababab); write('а теперь введите наибольшее число диапазона '); readln(bababa); //оформляем ввод данных sususumamama: =0; //присваиваем сумме значение 0 while ababab< =bababa do begin sususumamama: =sususumamama+ababab; //увеличиваем сумму на число а ababab: =ababab+1; //увеличиваем число а на 1 end; write('сумма всех чисел диапазона равна '+sususumamama); //выводим сумму чисел end.
R7981827791127
{дан массив из 100 элементов (заполняется случайно). найти сумму тех элементов  массива, порядковые номера которых не со значением этого элемента.}var j,k,i: integer; sum: longint; r: array[1..100] of integer; beginfor i: =1 to 100 do beginr[i]: = random(95)-25; write(r[i]: 3); if i < > r[i] then sum: = sum + r[i]; end; writeln; writeln('сумму элементов массива = ',sum); end. {дан массив из 100 целых чисел (числа вводятся случайно). найти максимальный элемент массива.}var k,i,max: integer; r: array[1..100] of integer; beginmax: =-25; for i: =1 to 100 do beginr[i]: = random(95)-25; write(r[i]: 3); if r[i] > max then max: = r[i]; end; writeln; writeln('максимальный элемент массива = ',max); end.

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Исполнитель чертёжник пе ре ме ща ет ся на ко ор ди нат ной плоскости, остав ляя след в виде линии. чертёжник может вы пол нять ко ман ду сместиться на (a, b) (где a, b – целые числа), пе ре ме ща ю щую чертёжника из точки с ко ор ди на та ми (x, y), в точку с ко ор ди на та ми (x+a, y+b если числа a, b положительные, зна че ние со от вет ству ю щей ко ор ди на ты увеличивается, если от ри ца тель ные — уменьшается. например, если чертёжник на хо дит ся в точке с ко ор ди на та ми (1, 1), то ко ман да сместиться на (–2, 4) пе ре ме стит его в точку (–1, 5). запись повтори k раз команда1 команда2 команда3 конец означает, что по сле до ва тель ность ко манд команда1 команда2 команда3 по вто рит ся k раз. чертёжнику был дан для ис пол не ния сле ду ю щий алгоритм: сместиться на (–3, –6) повтори 3 раз команда1 сме стить ся на (2, –5) сме стить ся на (3, 3) конец какую ко ман ду надо вы пол нить чертёжнику вме сто ко ман ды команда1, чтобы вер нуть ся в ис ход ную точку, из ко то рой он начал движение? ​
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

ВалерийАндреевна1788
thedoomsdatdcs36
oshemkov579
symkifm
alina Korneev
Logukate
demochkoo
karien87
olg53362928
westgti77105
avn23
khar4550
alexeytikhonov
Ka2ffka141
kas80