Домашня робота – ПР 7. Запишіть код для малювання кола чорного кольору. 8. Додайте код для малювання iнших кілець за такими даними: трете red, (110,-25); четверте - yellow, (-55, -75); п'яте - green, (55, -75). 9. Перейдіть у точку з координатами (0, 80) і встановіть червоний колір малювання. 10. Над олімпійським символом червоним кольором запишіть власне прiзвище та iм'я. Лахай Оля 11. Запустіть програму на виконання, проаналізуйте результат виконання програми у вiкнi Python Turtle Grafics. На рисунку наведено результат малювання олімпійського символу. 12. Закiнчiть роботу, закривши вікно IDLE. - Зробіть висновок: як складати та виконувати лiнiйнi алгоритми для створення зображень. ДО ІТЬ БУДЬ ЛАСКА

системный блок

РОЖДЕНИЯ 30.05.95

300

на паскале:

var

n,s,p:integer;

begin

read(n);

p:=n mod 10;

if p mod 2=0 then writeln ('оканчивается на четную цифру')

                    else writeln ('оканчивается на четную цифру');

while n>0 do

begin

n:=n div 10;

s:=s+1;

end;

writeln ('количество цифр в числе', s);

end.

1)

var

a:array[1..50]of real; 

i,n:byte;

Sn:real; 

begin 

 write('Введите количество элементов массива: ');readln(n);

for i:=1 to n do

begin

write('a[',i,']= '); readln(a[i]);

end;

clrscr; 

writeln('Исходный массив:'); 

/* Вывод в строчку через запятую*/

for i:=1 to n-1 do write(a[i]:5:3,', '); write(a[n]:5:3,'.');

/*Простой вывод в столбик*/

for i:=1 to n do writeln(a[i]:5:3);

/*Сумма элементов, стоящих на четных местах*/ 

Sn:=0;

while i<=n do

begin

  if odd(i)=false then Sn:=Sn+a[i];

  i:=i+1;

end; 

/*Вывод ответа*/

writeln('Сумма элементов, стоящих на четных местах: ',Sn:5:3);

end. 

2)

var

a:array[1..50]of real;

i:byte; 

begin

 write('Введите количество элементов массива: ');readln(n);

for i:=1 to n do

begin

write('a[',i,']= '); readln(a[i]);

end;

clrscr; 

writeln('Исходный массив:'); 

/* Вывод в строчку через запятую*/

for i:=1 to n-1 do write(a[i]:5:3,', '); write(a[n]:5:3,'.');

/*количество элементов кратных 3*/

kol:=0; 

for i:=1 to n do

if a[i] mod 3 =0 then kol:=kol+1; 

/*Вывод ответа*/

writeln('Количество элементов массива, кратных трем: ',kol);

end. 

Как по мне то лучше удобство и ничего лишнего, ведь список сохранять не говорили

var s:string;

k:integer;

Begin
  repeat
    write('Введите фамилию:');
    readln(s);
    if (length(s)=9) or (length(s)=8) then

      k:=k+1
  until s=''; {прекращаем чтенье если нам посылают пустую строку}
  writeln(k);
End.

2E9, 65, 2105,D7B, 2107, E1, 4D2, 1C7

var

   a, n : integer;

begin

   repeat

       read(a);

       if a div 7 = 0 then n += 1;

   until a = 0;

   writeln(n);

end.

1.РЕВАНШ, МУЗЫКА, все остальное понять не могу 

1 - истина, 0 - ложь.

(ab) and (a

1 or 0 and 1

1 or 1

ответ: (ab) and (a

она доползет за верха за 6 суток 16 часов .. т.к. за каждые сутки она проползает 25-10=15    100/15=     6+10/15   10/15 суток - это 16 часов