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

40 . строка а: =’аэродинамика’. используя операции обработки строковых величин составить из букв, содержащихся в строке а новые слова. 3 слова хватит. язык паскаль

👇
Ответ:
gangsta288
gangsta288
09.12.2020
PascalABC.NET 3.4.2, сборка 1881 от 19.11.2018Внимание! Если программа не работает, обновите версию!

begin

 var A:='Аэродинамика';

 A[5:].Println;

 A[5:12].Println;

 (A[9]+A[12]+A[3]+A[6:9]+A[5]).Println

end.

Примердинамикадинамикмаринад
40 . строка а: =’аэродинамика’. используя операции обработки строковых величин составить из букв, со
4,8(97 оценок)
Ответ:
мишка2283
мишка2283
09.12.2020

var s,st: string;


begin


 s:='Аэродинамика';


 st:=copy(s,5,7);


 writeln(st);


 st:=copy(s,3,6);


 writeln(st);


 st:=copy(s,1,5)+copy(s,3,2)+s[9];


 writeln(st);


 st:=copy(s,9,3)+copy(s,3,5);


 st:=s;


 delete(st,1,6);


 delete(st,3,4);


 st:=st+copy(s,3,3);


 writeln(st);


 st:=copy(s,11,2)+s[3]+s[9]+s[12];


 writeln(st);


end.  



динамик


родина


Аэродром


народ


карма

4,7(73 оценок)
Открыть все ответы
Ответ:
Procherk1337
Procherk1337
09.12.2020
DIM m AS INTEGER, n AS INTEGER
CLS
INPUT "n,m=", n, m
REDIM a(1 TO n, 1 TO m) AS INTEGER
imin = 1: jmin = 1: imax = 1: jmax = 1
RANDOMIZE TIMER
FOR i = 1 TO n
   FOR j = 1 TO m
      t = INT(51 * RND): a(i, j) = t
      PRINT t;
      IF a(imin, jmin) > t THEN
         imin = i: jmin = j
      END IF
      IF a(imax, jmax) < t THEN
         imax = i: jmax = j
      END IF
   NEXT j
   PRINT
NEXT i
PRINT "Sum="; imin + jmin + imax + jmax

Тестовое решение
n,m=8,5
 46  23  13  43  35
 18  47  44  41  37
 45  0  34  30  7
 0  28  27  49  47
 46  18  48  39  11
 2  17  32  43  38
 31  43  15  16  16
 30  32  46  9  31
Sum= 13
4,4(14 оценок)
Ответ:
dima140504
dima140504
09.12.2020
Рассмотрим каждую цепочку отдельно
BBA:
1 условие - true
2 условие - true
3 условие - false (B на первом месте)
EAC:
1 условие - true
2 условие - true
3 условие - false (A нет в списке допустимых значений)
ECC:
1 условие - true
2 условие - true
3 условие - true
Подходит
ABA:
1 условие - true
2 условие - false(на третьем месте тоже A)
CDE:
1 условие - true
2 условие - false(C нет в списке допустимых значений)
ABE:
1 условие - true
2 условие - true
3 условие - true
Подходит
BAE:
1 условие - true
2 условие - true
3 условие - false(A нет в списке допустимых значений)
ACB:
1 условие - false(B нет в списке допустимых значений)
DCE:
1 условие - true
2 условие - true
3 условие - true
Подходит
ответ: 3
4,7(45 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ