Складіть проєкт малювання двох квадратів у Scratch, якщо довжина сторони першого на 30 кроків більша за довжину сторони другого.​

1:

var s:longint;

   i,n:byte;

begin

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

   for i:=1 to n do s:=s+sqr(i*5);

   write(s);

end.

2:

var v:longint;

   i,n:real;

begin

   write('Введите первоначальный объём (л): '); readln(v);

   n:=30;

   i:=2.5;

   while i <= n do begin

       v:=2*v;

       i:=i+2.5;

   end;

   write('Через 30 часов будет ', v, ' литров');

end.

3:

var nf,mf:longint;

   i,n,m:byte;

begin

   nf:=1;

   mf:=1;

   write('Введите n: '); readln(n);

   write('Введите m: '); readln(m);

   for i:=1 to n do nf:=nf*i;

   for i:=1 to m do mf:=mf*i;

   write('n!+m!=', nf+mf);

end.

4:

var x,s:integer;

   c:byte = 0;

begin

   while true do begin

       write('Введите число (0 для выхода): '); readln(x);

       if x = 0 then break;

       if x < 0 then begin

           s:=s+x;

           inc(c);

       end;

   end;

   if c = 0 then write('Ни одного отрицательного числа не было введено')

   else write('Среднее арифметическое отрицательных значений равно: ', s/c:0:2);

end.

5:

var x,s:integer;

begin

   while true do begin

       write('Введите число (0 для выхода): '); readln(x);

       if x = 0 then break;

       if (x mod 2 = 0) and (x > 0) then s:=s+x;

   end;

   if s = 0 then write('Ни одного чётного положительного числа не было введено')

   else write('Сумма чётных положительных чисел равна: ', s);

end.

6:

var a:Array[1..10] of integer;

   max_v:integer;

   i,max_i:byte;

begin

   a[1]:=random(100);

   max_v:=a[1];

   max_i:=1;

   write(a[1],' ');

   for i:=2 to length(a) do begin

       a[i]:=random(100);

       if a[i] > max_v then begin

           max_v:=a[i];

           max_i:=i;

       end;

       write(a[i],' ');

   end;

   if max_i <> length(a) then begin

       a[max_i]:=a[length(a)];

       a[length(a)]:=max_v;

   end;

   writeln();

   for i:=1 to length(a) do write(a[i], ' ');

end.

1.    Он американский ученый, основоположник кибернетики. А

также теории об искусственном интеллекте. Славу ему принесли его работы в

математике и физике. Его большая роль в том, что именно он впервые смог понять

огромное значение того, что информация будет использоваться в процессах

управления.

2.      

Основатель теории информации, которая нашла свое место в современных

системах связи. В 40-х годах века ввел понятие «бит».

3.      

Термин, который означает «выполняющееся

действие по запросу», ввел Тед Нельсон в веке, в 1963 году.

4.      

В 1989 году. Изобретателем считают

двух человек – Тима Бернерс-Ли и Роберт Кайо.

5.      

Эйлер, в честь которого назвали графическую

схему, был ученым. Его сферой изучения была математика, физика, астрономия,

химия, ботаника, музыка, медицина и другие направления. Он автор 600 трудов. 

не за что!       и на сердечко