4 года назад

Алгоритм слова МИМ в программе Кумир

1 ответ:

0 0

Использовать Чертежник
алг МИМ
нач
опустить перо
сместиться на вектор(0.75,3)
сместиться на вектор(0.75,-3)
сместиться на вектор(0.75,3)
сместиться на вектор(0.75,-3)
поднять перо
сместиться на вектор(1,0)
опустить перо
сместиться на вектор(0,3)
сместиться на вектор(0,-3)
сместиться на вектор(1.5,3)
сместиться на вектор(0,-3)
поднять перо
сместиться на вектор(1,0)
опустить перо
сместиться на вектор(0.75,3)
сместиться на вектор(0.75,-3)
сместиться на вектор(0.75,3)
сместиться на вектор(0.75,-3)
кон

Читайте также

Среди приведённых ниже записей формулой для электронной таблицы является только 1)S3+F2*R4 2)D3+D4+D5 3)=B3*C4 4)S3=G4+B2

АндрейЗимичев

Правильный ответ № 3) =B3*C4

0 0

4 года назад

Вам нужно подняться по лестнице. За один раз можно подняться на одну или две ступеньки. Сколько существует способов добраться до

Ed1anz [74]

Много:
1) 2+2+2+2
2)1+1+1+1+1+1+1+1
3) 2+1+2+1+2
4)1+1+2+2+1+1 и тд

0 0

4 года назад

1.Вводится натуральное число. Найти сумму четных цифр, входящих в его состав. 2. Дан текст. Определить процентное отношение стро

OlgaLubenskaya

Объяснение:

n - исходное число,

sum - сумма четных чисел.

var

n: longint;

sum: integer;

begin

readln(n);

sum := 0;

while n > 0 do begin

if n mod 10 mod 2 = 0 then

sum := sum + n mod 10;

n := n div 10;

end;

writeln(sum);

end.

str - строка;

len - количество символов в строке;

let_s, let_b - количество строчных (маленьких) и прописных (больших) букв.

var

str: string;

i, len, let_b, let_s: byte;

begin

readln(str);

len := length(str);

let_b := 0;

let_s := 0;

for i:=1 to len do

if (str[i] >= 'a') and (str[i] <= 'z') then

let_s := let_s + 1

else

if (str[i] >= 'A') and (str[i] <= 'Z') then

let_b := let_b + 1;

writeln((let_s/len)*100:5:2);

writeln((let_b/len)*100:5:2);

writeln;

end.

0 0

4 года назад

СКОЛЬКО ЛЕТ ЖИЛ РАЗУМНЫЙ ЧЕЛОВЕК?

комедоз

В эфиопии ученые обнаружили человека которому 160 тыс.лет. Они полагают,что примерно 200 лет назад появился человек разумный.

0 0

4 года назад

СРОЧНО!!! ОЧЕНЬ СРОЧНООО!!! ПОЖАЛУЙСТА ПОМОГИТЕ СДЕЛАТЬ....Как это задание записать в турбо паскаль, какой код нужно написать...

Елена Крикуненко [24]

Var t,n:integer;
begin
n:=1;
t:=3;
writeln('t','n':6);
while t<25 do
begin
n:=n*2;
writeln(t,n:6);
t:=t+3;
end;
readln;
end.

0 0

3 года назад