dimakalabin
26.09.2020 19:18

Векторный или растровый редактор? 1) Я- токарь, мне нужно разработать чертеж детали для станка с ЧПУ. В каком типе редактора я буду работать?(изменено)
2) Я-фотограф, взял заказ на реставрацию старой фотографии. В каком типе редактора я буду работать?
Какой формат файла?
3) Я сделал фото на телефон, выложила фото в соцсеть. Какой, скорее всего, формат моего файла?
4) Я скачала простенькую анимацию с интернета.Какой, скорее всего, формат моего файла?
5) Мне нужно сделать баннер для мероприятия.Какой, скорее всего, формат моего файла?
6) Я-програмист, пишу приложение под WINDOWS. Нарисовал графические иконки для приложения.Какой, скорее всего, формат моих рисунков?
7) Я- фотограф из второго вопроса. Обрабатываю старую фотграфию в очень удобном и ра редакторе. Но ,моя работа еще не закончена, мне нужно ее сохранить для дальнейшей работы..Какой, скорее всего, формат моего файла?(изменено)
8) В моем редакторе 2048 цветов. Сколько бит на одну точку используется для сохранения файла?
9) В моем редакторе 256 цветов. Сколько Байт на одну точку используется для сохранения файла?
10) В моем редакторе для сохранения на одну точку выделено 9 бит. Сколько цветов в моем редакторе?
11*) В моем редакторе 48 цветов. Сколько бит на одну точку используется для сохранения файла?
12*) Сколько Байт нужно для сохранения рисунка 8 * 16 точек, если в редакторе 32 цвета?(изменено)

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
ekaterinka21041
26.12.2020 02:21
Var dv,tr,pt,dv1,tr1,pt1,dv2,tr2,pt2 :real;

procedure nod( var dv,tr,pt,dv1,tr1,pt1,dv2,tr2,pt2 :real; );
var a:array[1..6] of real;
i : integer;
begin
dv1:=100;
tr1:=100;
pt1:=100;
for i:= low(a) to high (a) do begin
readln(a[i]);
repeat
if( (a[i] mod 2) =0) then begin
a[i]:=a[i]/2;
dv:=dv+1;
end
else if( ( a[i] mod 3)=0) then begin
a[i]:=a[i]/3;
tr:=tr+1;
end
else if ( ( a[i] mod 5)=0) then begin
a[i]:=a[i]/5;
pt:=pt+1;
end;

untill(a=1);
if dvif trif ptdv:=0;
tr:=0;
pt:=0;
end;
if dv1>0 then dv2:=dv1*2 else dv2:=1;
if tr1>0 then tr2:=tr1*3 else tr2:=1;
if pt1>0 then pt2:=pt1*5 else pt2:=1;
nod:=dv2*tr2*pt2;
writeln(nod);
end;
begin
nod( dv,tr,pt,dv1,tr1,pt1,dv2,tr2,pt2 );
end.

end;
0,0(0 оценок)
Ответ:
Galel227
20.06.2022 20:30
Задача №1
//PascalABC.NET (версия 3.1, сборка 1196 от 09.03.2016)
Var n, i: integer; 
Begin                   
writeln ('Введите число');
readln(n);                                    
writeln('Делители числа:');  
for i := 1 to n div 2 do     
  if (n mod i) = 0 then begin 
    write(i,'  ');
  end;         
End.       

Задача №2 (алгоритм не очень шустрый, но работает и понятный)
//PascalABC.NET (версия 3.1, сборка 1196 от 09.03.2016)
var
  a, b, x, y, nod: integer;

begin
  writeln('Введите a,b');
  readln(a, b);
  x := a;y := b;
  while x <> y do
    if x > y
      then x := x - y
    else y := y - x;
  nod := x;
  writeln('NOD(', a, ',', b, ')=', nod);
end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота