logo
Вход Регистрация Спроси Mozg AI
М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
emdnick
emdnick
04.08.2022 01:20 •  Информатика

Решите задачу в программе PASCALABC.NET


Решите задачу в программе PASCALABC.NET

👇
Увидеть ответ
Открыть все ответы
Ответ:
valenkov05
valenkov05
04.08.2022
Никогда не писала что-либо с использованием графики, но, скорее всего, программа выглядит следующим образом:

uses  GraphABC;
var  x0, y0, x1, y1: integer;

begin   
   SetWindowSize(400, 400);//устанавливаем размер окна 
   x0 := WindowWidth;//ширина окна 
   y0 := WindowHeight;//высота окна   

   SetFontColor(clRed);//Устанавливаем цвет текста 
   TextOut(0, 0, 'Сергей');//Надпись в левом верхнем углу  
  
   x1 := WindowWidth div 2; //половина ширины окна 
   y1 := WindowHeight div 2;//половина высоты окна   

  SetFontColor(clBlue); 
  TextOut(x1, y1, 'Сергей');//Надпись посередине   

  SetFontColor(clYellow); 
  TextOut(0, y0, 'Сергей');//Надпись в левом нижнем углу  

  SetFontColor(clPurple); 
  TextOut(x0, 0, 'Сергей');//Надпись в правом верхнем углу   

  SetFontColor(clGreen); 
  TextOut(x0, y0, 'Сергей');//надпись в правом нижнем углу
end.

Программа была написана  в проверьте, работает ли она в вашем Pascal.
4,4(19 оценок)
Ответ:
lirazelio
lirazelio
04.08.2022
Да без проблем!

gcd(77164189341682084692124351766096496451364840671846455244761, 46668734283684548617206823665104829826096872771679324943689);

448643232670469

a:=ifactor(77164189341682084692124351766096496451364840671846455244761);

   4                                                            
(3)  (11) (503) (809) (573384723060967) (448643232670469) (492166512383869) (1680979)

b:=ifactor(46668734283684548617206823665104829826096872771679324943689);
(781199815286623) (283598494080047) (448643232670469) (39869)
(11776697129)

Вычислите наибольший общий делитель чисел 7716418934168208469212435176609649645136484067184645524476
4,4(21 оценок)
Это интересно:
З
Здоровье
12.11.2020
Молочница: Причины, проявления и лечение в домашних условиях...
Д
Дом-и-сад
10.09.2020
Как установить в доме камеры наблюдения для системы безопасности...
К
Как заварить Кунг фу чай - лучший способ насладиться вкусом восточного чая...
К
Как сделать красивые и вкусные французские макароны с миндалем...
З
Здоровье
04.01.2023
Контроль гнева: как управлять своими эмоциями...
С
Как помочь другу, потерявшему близкого человека: советы и рекомендации...
М
Мир-работы
01.04.2023
Как стать успешным командным игроком на работе: советы для успеха...
К
Как приготовить торт на именины собаки...
С
Пухлые щеки: прекрасный тренд или проблема?...
К
Как поднять свой боевой уровень в RuneScape: советы и рекомендации...
Новые ответы от MOGZ: Информатика
sergey1234567890f
sergey1234567890f
26.02.2023
3. Путём преобразования докажите равносильность следующих высказываний: и (A & B) M (A& C) V (B & C); 1) (A & B) V (B & C) 2) (A & B) v (A & C) и (A...
масяня155
масяня155
07.08.2020
Напишите программу, которая запрашивает у пользователя число. Если оно является положительным, то увеличить на 10; если отрицательным, то уменьшить на 5; если нулевым, то заменить...
адильчичек
Какому типу принадлежит число 4? ​...
alechka2502
alechka2502
01.05.2022
2. для чего предназначен оператор if? а. для выполнения линейного алгоритма; b. для перехода на нужную строку; с. для выбора по условию; d. для образования циклов.​...
atleti09oz3yfh
atleti09oz3yfh
30.08.2021
Опишите на паскале целочисленный массив из 25элементов...
Lemnik
Lemnik
23.02.2020
Скажіть загальну назву таких предметів( клавіатура, мишка, мікрофон)...
zemdy926
zemdy926
23.02.2020
№1 на одной улице подряд стоят пять домов, каждый — своего цвета. в каждом живёт человек, все пять — разных национальностей. каждый человек предпочитает уникальную марку машин,...
amitas
amitas
03.01.2023
По шестнадцатеричному коду восстановить десятичный код и, пользуясь таблицей кодировки символов, расшифровать слово: 8а 8е 8с 8f 9с 9е 92 85 90....
mariyakohtuk
mariyakohtuk
03.01.2023
Написать в с++. program matrix7; var a: array [1..10,1..10] of integer; m, n, k, i, j: integer; begin write( n: ); readln(n); write( m: ); readln(m); write( k: ); readln(k); for...
Kolyan097
Kolyan097
03.01.2023
ответьте на вопросы 1. зачем компьютеру нужны два вида памяти: внутренняя и внешняя? 2. что такое принцип хранимой программы? 3. в чем заключается свойство дискретности внутренней...

MOGZ ответил

Полный доступ к MOGZ
Живи умнее Безлимитный доступ к MOGZ Оформи подписку
О НАС
ПОМОЩЬ
App
.
.
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ