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

Как нарисовать 3 домика подряд в программе КуМир

👇
Ответ:
nfedorova868
nfedorova868
02.01.2023

использовать Чертежник

алг

нач

сместиться в точку (1,3)

нц 3 раз

опустить перо

сместиться на вектор (2,0)

сместиться на вектор (-1,2)

сместиться на вектор (-1,-2)

сместиться на вектор (0,-2)

сместиться на вектор (2,0)

сместиться на вектор (0,2)

поднять перо

сместиться на вектор (1,0)

кц

кон

Объяснение:

Смотри картинку


Как нарисовать 3 домика подряд в программе КуМир
4,4(20 оценок)
Открыть все ответы
Ответ:
SviYm
SviYm
02.01.2023
Просто: 1) система программирования это средство, которое позволяет писать программы, на определенном языке программирования, или на нескольких определенных языках. 2) язык программирования: это система обозначений, которая позволяет записывать алгоритмы. 3) чтоб алгоритм работал на машине, нужно: описание, на языке программирования, ввести в систему программирования, которая по этому описанию сделает выполняемую программу. 4) кроме транслятора, система программирования содержит весь набор инструментов для работы: текстовые редакторы, конструкторы, отладчики, и тд. поэтому называется "система"
4,4(78 оценок)
Ответ:
Артем1526
Артем1526
02.01.2023
Program Ulitka;
Var SunnyDay: Array [1..30] Of Boolean;
a, b, c, i: Integer;
Begin
WriteLn('a = ');
ReadLn(a);
WriteLn('b = ');
ReadLn(b);
b := b * 100;
Randomize;
For i := 1 To 30 Do
Begin      
If Random(2) = 1 Then
SunnyDay[i] := True
Else
SunnyDay[i] := False;
End;
For i := 1 To 30 Do
Begin  
If SunnyDay[i] = True Then
Begin    
a := a + 2;    
If a > b Then    
a := b;  
End  
Else  
Begin   
a := a - 1;    
If a < 0 Then    
a := 0;  
End;  
End;
WriteLn('Дни месяца были таковы:');
For i := 1 To 30 Do Begin
If SunnyDay[i] = True Then
WriteLn(i, '. Солнечный')
Else
WriteLn(i, '. Пасмурный')
End;
WriteLn('К концу 30 дня местоположение улитки равно ', a, ' см над землей');
ReadLn;
End.
4,8(73 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ