Нурсая12345
03.01.2022 05:19

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

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
Dankytop
16.09.2020 03:56
Первое задание:

program cube;
    var a,s,v:real;
begin;
    write('Введите длину ребра куба: ');
    read(a);
    v:=power(a,3);
    s:=6*sqr(a);
    write('Площадь равна ',s,', а объём равен ',v,'.');
end.

Второе задание:

program par;
    var a,b,c,s,v:real;
begin;
    write('Введите стороны a,b,c: ');
    read(a,b,c);
    v:=a*b*c;
    s:=2*(a*b+b*c+a*c);
    write('Площадь равна ',s,', а объём равен ',v,'.');
end.

Третье и четвёртое задания:

program mult;
    var r,a,b,c:real;
begin;
    write('Введите три числа: ');
    read(a,b,c);
    r:=a*b*c;
    write('Произведение чисел равно ',r);
end.
0,0(0 оценок)
Ответ:
mazaeva333
16.09.2020 03:56

Program primer; //добавили точку с запятой (отделяем операторов друг от друга)

Var a, b, s, p: integer;

Begin //убрали точку с запятой (после begin точка с запятой не ставится)

Write('Введите стороны прямоугольника = ');//добавили скобку и точку с запятой (после оператора write в скобках указывается что выводится на экран)

ReadLn(a,b);

P:=a+b;//добавили двоеточие (оператор присваивания  :=)

S:=a*b;//добавили двоеточие, заменили знак × на знак *  (звездочку - оператор умножения)

WriteLn('Площадь = ',s);//добавили запятую (при вводе и выводе переменные отделяются запятыми, вывод текста от переменных тоже)

WriteLn('Периметр = ',p);//добавили запятую

End.//добавили точку (окончания программы)

Объяснение:

Поправили ещё кавычки вместо знака ‘ поставила знак '

Заменили Writeln на Write в 4 строке, чтобы ввод осуществлялся в той же строке

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