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

Дано слово электроника. написать программу получения из данного слова следующих слов трон,крот,лектор

👇
Ответ:
Nastasia8879
Nastasia8879
21.01.2022
Var n:string;beginn:=('Электроника');writeln(copy(n,5,4));writeln(n[4],copy(n,6,2),n[5]);writeln(copy(n,2,4),n[7],n[6]);end.
4,5(69 оценок)
Открыть все ответы
Ответ:
Возможности графического редактора Photoshop от компании Adobe позволяют делать любые операции над изображениями. Начиная с рисования простых фигур и линий кистью, и заканчивая созданием сложных многослойных композиций с применением корректирующих слоёв,  эффектов наложения, фильтров и 3d объектов. С его можно выравнивать цвета и положение объектов на неправильно сделанных снимках, производить восстановление и коррекцию старых фотографий либо повреждённых изображений. Можно делать анимированные изображения, например, gif анимацию. Имея графический планшет можно рисовать настоящие картины, как если бы мы использовали обычную кисть и холст, т.к. большое разнообразие кистей и их настроек позволяет в умелых руках буквально творить чудеса. Инструменты автоматизации, подключаемые фильтры и плагины, а также ряд других профессиональных возможностей позволяют упростить многие операции, а многие делать буквально в 1 клик мыши в автоматическом режиме сразу над несколькими тысячами файлов.
4,6(45 оценок)
Ответ:
motay121
motay121
21.01.2022
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;
4,8(40 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ