М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
leonleontiev6
leonleontiev6
23.01.2021 08:56 •  Информатика

Синформатикой. и правильные ли номера 1,2? 30 .

👇
Ответ:
VovaMel2017
VovaMel2017
23.01.2021

да номер 1 и 2 правильно ой мой сыночек какой ты молодец горжусь   тобой чувак

4,4(32 оценок)
Открыть все ответы
Ответ:
adamswpp
adamswpp
23.01.2021
Вот программа с елкой:
Uses GraphABC;
Begin
SetWindowSize(600,400);
line(250,100, 300,50);
lineto(350,100);
lineto(250,100);
floodfill(300,70, clgreen);
line(220,200, 300,100);
lineto(380,200);
lineto(220,200);
floodfill(300,150, clgreen);
line(200,300, 300,200);
lineto(400,300);
lineto(200,300);
floodfill(300,250, clgreen);
rectangle(290, 300,310, 320);
floodfill(300,305, clbrown);
line(0, 300, 100, 350);
lineto(200, 320);
lineto(400, 320);
lineto(600, 370);
lineto(600,400);
lineto(0,400);
lineto(0
4,5(24 оценок)
Ответ:
vaper4
vaper4
23.01.2021
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25                 x0 := 30;         Y0 := 460;         MaxY := 80;         MaxX := GetMaxX;         i := 1;         T0 := rez[Id_T, 1];         Tk := 15;         Tkv := 0.75;         MoveTo(x0, Y0);           While T0 <= Tk do         begin             x := X0 + 70 * Round( rez[Id_T, i] );             y := Y0 - Round( rez[Id_Zt, i] / 7.8 );               LineTo(x, y);               T0 := T0 + Tkv;             i := i + 1;               DelaySeconds := Round(Tkv * 1000);             Delay(DelaySeconds);         end;         { ...Построение графика }
4,8(3 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ