В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
liskotovich
liskotovich
05.01.2020 11:35 •  Информатика

Створити проект "Пори року" в середовищі Scratch

Показать ответ
Ответ:
Вероникапривет
Вероникапривет
25.02.2021 05:14

11.01| 101

     |

     | 0.10100110011001100110011001100110011001100110011001

11

--   не делится, добавляем 0 (в частное целые 0)

110

101

---  делится (в частное десятые 1)

---  остаток 1, сносим 1 - мало, (в частное 0 - сотые), сносим 0

  110

  101

   делится (в частное тысячные 1)

   остаток 1,сносим 0-мало,(в частное 0),сносим 0-мало,(в частное 0), сносим 0

    1000

     101

      делится (в частное 1)

      остаток 11,сносим 0

      110

      101

      --- делится (в частное 1)

      --- остаток 1,сносим 0-мало,(в частное 0),сносим 0-мало,(в частное 0),сносим 0

        1000

         101

          делится (в частное 1)

          остаток 11,сносим 0

          11

        и т д

0,0(0 оценок)
Ответ:
alsav241357
alsav241357
13.12.2021 04:01

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls,Math, ExtCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
Image1: TImage;
procedure Button1Click(Sender: TObject);
procedure Image1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
a,x,y,r:Integer;
begin
Randomize;
Image1.Picture := nil;
Image1.Canvas.Brush.Color:=clBlack;
Image1.Canvas.Rectangle (0,0,Image1.Width,Image1.Height);
Image1.Canvas.Brush.Color:=clWhite;

for a:=1 to RandomRange(9,20) do
begin
x:=RandomRange(50,1000);
r:=RandomRange(1,15);
y:=RandomRange(50,550);
Image1.canvas.Ellipse(x-r,y-r,x+r,y+r);
end;


end;
procedure TForm1.Image1Click(Sender: TObject);
begin

end;

end.

 

 

на форме image и кнопка

(если тебе нужна просто программа(как я думал изначально) напиши в почту, просто уважаемые админы удаляют мои посты :(   )

0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота