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

Напишите программу с использованием символьных величин и строк символов:

Ввести адрес файла и «разобрать» его на части, разделенные знаком '/'. Каждую часть вывести в отдельной строке.
Пример:
Введите адрес файла:
C:/Фото/2013/Поход/vasya.jpg
C:
Фото
2013
Поход
vasya.jpg

👇
Открыть все ответы
Ответ:
voronvoron2002
voronvoron2002
04.02.2022
uses graphABC; var f:boolean; procedure planety(r,x,y:integer;c:Color); begin setpencolor(c); setbrushcolor(c); setbrushstyle(bsSolid); circle(x,y,r); end; procedure KeyPress(key:char); begin if key<>#0 then f:=false; end; var xc,yc,rs,rz,rl,r1,r2,x1,y1,x2,y2:integer;     u1,u2:real; begin xc:=windowwidth div 2; yc:=windowheight div 2; rs:=90; rz:=15; rl:=3; r1:=170; r2:=25; u1:=0; u2:=0; clearwindow(clBlack); lockdrawing; onkeypress:=Keypress; f:=true; repeat clearwindow(clBlack); setbrushstyle(bsClear); setfontcolor(clWhite); textout(windowwidth div 2-80,10,'Выход любая клавиша'); planety(rs,xc,yc,clYellow); u1:=u1-0.02; u2:=u2+0.1; x1:=xc+round(r1*cos(u1)); y1:=yc-round(r1*sin(u1)); x2:=x1+round(r2*cos(u2)); y2:=y1-round(r2*sin(u2)); planety(rz,x1,y1,clBlue); planety(rl,x2,y2,clSilver); sleep(100); redraw until not f end.
4,8(26 оценок)
Ответ:
nikkovalev199
nikkovalev199
04.02.2022
Замечание:
Первое задание некорректно: не указано, от какого значения начинаются индексы. Тут правильнее было бы говорить о порядковом номере элемента.

// PascalABC.NET 3.3, сборка 1583 от 25.11.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var n:=ReadInteger('n=');
  var k:array[1..1000] of real;
  for var i:=1 to n do begin k[i]:=1/i; Print(k[i]) end
end.

Пример
n= 10
1 0.5 0.333333333333333 0.25 0.2 0.166666666666667 0.142857142857143 0.125 0.111111111111111 0.1

begin
  var c:=ArrRandom(ReadInteger('n='),-99,99).Select(t->t/10).ToArray;
  c.Println;
  c.Transform(t->t>0?t+0.4:t=0?0.5:t);
  var sn:=c.Where(t->t<0).Sum;
  var pp:=c.Where(t->t>0).Aggregate(1.0,(x,y)->x*y);
  Writeln('Сумма отрицательных ',sn,', произведение положительных ',pp)
end.

Пример
n= 15
6.7 4.2 6.3 -4.3 -4.6 -5.9 8.7 4.6 9.7 3 -9.7 8.9 5.4 -2.2 4.8
Сумма отрицательных -26.7, произведение положительных 95899635.466646
4,7(29 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ