М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
Anastasiay80
Anastasiay80
11.10.2022 17:32 •  Информатика

Какая модель не является информационной? а) эскиз автомобиля, в)нотная запись музыкального произведения. с) формула.d) глобус

👇
Ответ:
Dimasgta7
Dimasgta7
11.10.2022
Не являеться А)эскиз автомобиля
4,5(79 оценок)
Открыть все ответы
Ответ:
Ник6911
Ник6911
11.10.2022
Uses GraphABC;

Var
   R:integer:=70; //радиус Солнца
   A:array[1..4,1..5] of integer;
   //A[1] - x
   //A[2] - y
   //A[3] - r
   //A[4] - r орбиты
   v:real:=0.03;
   k:integer:=10; // Коэффициент масштабирования орбит
Begin
Window.Maximize;
A[1,3]:=10;
A[1,4]:=R+A[1,3]*k;

A[2,3]:=13;
A[2,4]:=A[1,4]+A[2,3]*k;

A[3,3]:=17;
A[3,4]:=A[2,4]+A[3,3]*k;

A[4,3]:=A[3,3] div 4;
A[4,4]:=A[3,3]+A[4,3]*k;

LockDrawing;
SetCoordinateOrigin(Window.Width div 2,Window.Height div 2);

Repeat
Window.Clear;
Brush.Color := clYellow;
FillCircle(0,0,R);

Brush.Color := clGray;
A[1,1]:=round(A[1,4]*Cos(v*3));
A[1,2]:=round(A[1,4]*Sin(v*3));
FillCircle(A[1,1],A[1,2],A[1,3]);

Brush.Color := clOrange;
A[2,1]:=round(A[2,4]*Cos(v*3/4));
A[2,2]:=round(A[2,4]*Sin(v*3/4));
FillCircle(A[2,1],A[2,2],A[2,3]);

Brush.Color := clBlue;
A[3,1]:=round(A[3,4]*Cos(v/4));
A[3,2]:=round(A[3,4]*Sin(v/4));
FillCircle(A[3,1],A[3,2],A[3,3]);

Brush.Color := clGray;
A[4,1]:=A[3,1]+round(A[4,4]*Cos(20*v));
A[4,2]:=A[3,2]+round(A[4,4]*Sin(20*v));
FillCircle(A[4,1],A[4,2],A[4,3]);

v:=v+0.03;
Redraw;
Until false;
End.
4,6(1 оценок)
Ответ:
Deni11111111
Deni11111111
11.10.2022
Первый вариант:

Var
   A:real;
   k:integer;
Begin
Write('Стоимость одной газеты: ');ReadLn(A);
Write('Количество газет: ');ReadLn(k);
if k <= 50 then WriteLn('Заработок продавца: ',k*A,' руб.')
else WriteLn('Заработок продавца: ',(A*((k-50)*1.2+50)):0:2,' руб.')
End.

Var k:integer;
    S,A:real;
Begin
Write('Стоимость одной газеты: ');ReadLn(A);
Write('Количество газет: ');ReadLn(k);
if k <= 50 then S:=k*A
else S:=A*((k-50)*1.2+50);
WriteLn('Заработок продавца: ',S:0:2,' руб.');
End.

Пример работы программы:

Стоимость одной газеты: 30.15
Количество газет: 200
Заработок продавца: 6934.50 руб.
4,5(60 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ