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

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

алг

нач

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

нц 3 раз

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

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

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

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

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

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

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

поднять перо

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

кц

кон

Объяснение:

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

Просто: 1) система программирования это средство, которое позволяет писать программы, на определенном языке программирования, или на нескольких определенных языках. 2) язык программирования: это система обозначений, которая позволяет записывать алгоритмы. 3) чтоб алгоритм работал на машине, нужно: описание, на языке программирования, ввести в систему программирования, которая по этому описанию сделает выполняемую программу. 4) кроме транслятора, система программирования содержит весь набор инструментов для работы: текстовые редакторы, конструкторы, отладчики, и тд. поэтому называется "система"

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.