Фразу на русском языке необходимо перевести на язык Pascal.ABC
1. В программе будем использовать строковые переменные А и В, в которых не более 20 символов ;
2. В программе есть массив Т из 100 символьных элементов;
3. Ввести с клавиатуры 20 элементов массива А, начиная с 1-го ;
4. Вывести в одну строку массив B, в котором 20 элементов (первый элемент имеет номер 1);
5. Пока S положителен, увеличивайте эту переменную на значение X ;
6. Соедините в одну строку через пробелы строчные переменные Name и Кlass;
7. Если число А четное, то уменьшите его в 2 раза, иначе увеличьте на 1;
8. Переменную А вычислите как случайное число из отрезка [1,100];
9. Переменную А замените суммой двух последних цифр этого числа.
GraphABC;
var
i: word; //Было предпочтительнее использовать byte,
//ведь от 3 до 7 считаем, но тип word старее,
//а к byte могут придраться
begin
SetBrushColor(clBlue); //Проставляем цвет кисти, я не
//нашёл функции рисования круга,
//где можно было бы указать цвет
for i := 3 to 7 do
begin
FillCircle(200, 200, 10 * i); //Рисуем круг, радиус от 30 до 70
sleep(500); //Поскольку круги в конечном счёте всё равно
//затираются более большими, будем выводить
//с задержкой
end;
end.
P =NP
Объяснение:
создаем переменую х и у
и содаем перемную х 1 и у1
P равно х и игрек
NP равно х 1 и у1
теперь P =NP
проверяем в системе кординат например 8 на 8
мы видим равенство класов
смотри мы можем сделать так
допустим это книга с пронумероваными страницами
каждая страница собщаеть какой диапазон значение на даном поле
но если мы будем сравнивать первая клетка и каждую последущую перебором это будет долго
мы можем наложить поле на поле и проверить сразу два значения и сравнить их отельно
то есть найдя на страничке список номеровмы можем сразу выводить значения из поля и передать еще одной переменой проверить были совпадения или нет