var a:integer; begin readln(a); moveto(a,1); circle(a+a div 2,1,a div 4); lineto(a+a div 4,1); moveto(a+ (a div 4)*3,1); lineto (2*a,1); lineto(2*a,1+a); lineto (a,1+a); lineto (a,1); moveto (a,1+a); lineto (a-(a div 2),1+2*a); lineto(2*a+a div 2, 1+2*a); lineto(2*a,1+a); end.
Вопрос №1: 1) - г 2) - а 3) - б 4) - д 5) - в вопрос №2: 1) - б 2) - в 3) - а 4) - д 5) - г вопрос №3: в,г вопрос №4: для ответа на этот вопрос необходимы картинки из условия, так что ответить без них не представляется возможным. вопрос №5: в вопрос №6: д вопрос №7: 1) - г 2) - в 3) - а 4) - д 5) - б вопрос №8: 1) - б 2) - а 3) - в вопрос №9: здесь,как и в вопросе №4 решающую роль играет рисунок,которого нет - ответа без него быть не может. вопрос №10: а,б,д вопрос №11: в - информационные компьютерные технологии с одновременным использованием нескольких видов информации.вопрос №12: все 3 варианта ответа имеют место быть верными, то есть все варианты верны.
Слово «мама» — особое слово, оно рождается вместе с нами.в языке любого народа есть это слово.место матери в нашей жизни особое.материнская любовь окрыляет, придает силы, вдохновляет на подвиг.слово «мама» становится равнозначным слову «жизнь». сколько художников, композиторов, поэтов создали замечательные произведения о маме! к сожалению, мы слишком поздно понимаем, что забыли сказать много хороших и добрых слов своей маме. чтобы этого не произошло, нужно дарить им радость каждый день и час. ведь дети – лучший подарок для них.
Решение для Pascal ABC
uses GraphABC;
var
a:integer;
begin
readln(a);
moveto(a,1);
circle(a+a div 2,1,a div 4);
lineto(a+a div 4,1);
moveto(a+ (a div 4)*3,1);
lineto (2*a,1);
lineto(2*a,1+a);
lineto (a,1+a);
lineto (a,1);
moveto (a,1+a);
lineto (a-(a div 2),1+2*a);
lineto(2*a+a div 2, 1+2*a);
lineto(2*a,1+a);
end.