Склавиатуры вводятся любые симворлы. программа должна преобразовать вводимые символы,заменив все буквы - id701944920210419 от gr3ygo0se 19.04.2021 02:15

Question

Информатика: Склавиатуры вводятся любые симворлы. программа должна преобразовать вводимые символы,заменив все буквы одноимёнными большими (другие символы не преобразовывать) ввод символов прекращается, если введён символ*// напишите, программу.

gr3ygo0se · Accepted Answer

uses graphABC;

Begin

Setbrushstyle(bsClear);

SetPenWidth(13);

SetPenColor(clBlue);

Circle (140,200,100);

SetPenColor(clBlack);

Circle (320,200,100);

SetPenColor(clRed);

Circle (500,200,100);

SetPenColor(clYellow);

Circle (240,315,100);

SetPenColor(clGreen);

Circle (420,315,100);

SetPenColor(clBlue);

Arc(140,200,100,-17,90);

SetPenColor(clBlack);

Arc(320,200,100,180,200);

SetPenColor(clBlack);

Arc(320,200,100,-15,90);

SetPenColor(clRed);

Arc(500,200,100,180,270);

SetPenColor(clYellow);

Arc (240,315,100,0,45)

end.

Объяснение:

картинка

Напишите код в программе Pascal, чтобы получился рисунок олимпийских колец, как на картинке. Буду оч

MOGZ ответил