logo
Вход Регистрация Спроси Mozg AI
М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
081105gr
081105gr
07.01.2020 06:05 •  Информатика

Взаданном тексте определить содержит ли он символ "& " (да, нет) pascal

👇
Увидеть ответ
Ответ:
Виктория41116
//Pascal ABC.NET v3.1 сборка 1172

Var
 s:string;
begin
 readln(s);
 if pos('&',s)<>0 then writeln('Да') else writeln('Нет');
end.

Пример ввода:
A&B
Пример вывода:
Да
4,4(67 оценок)
Открыть все ответы
Ответ:
lllgglll
lllgglll
07.01.2020
Const
  n = 10;

var
  a: array[0..10] of integer;
  i, s: integer;

begin

//Заполнение массива сл. числами

  for i := 1 to n do
  begin
    a[i] := random(201) - 100;
    write(a[i]:4);
  end;
  writeln;

//1) Все элементы не превышающие число 100

  writeln('Не больше 100 ');
  for i := 1 to n do
    if a[i] <= 100 then
      write( a[i]:4);
  writeln;

// 2) Все четные элементы

  writeln('Кратные двум ');
  for i := 1 to n do
    if a[i] mod 2 = 0 then  
      write( a[i]:4);
  writeln;

// 3) Все элементы, являющиеся трехзначными числами

   writeln('Трехзначные ');
  for i := 1 to n do
    if (a[i] < -99) or (a[i] > 99) then  
      write(a[i]:4);
  writeln;

// 4) Третий, шестой и т.д элементы.

  i := 3;
  writeln(' номера 3, 6, 9 и  т.д.');
  while i < n do
  begin
    write(a[i]:4);
    i := i + 3;
  end;
end.
4,8(27 оценок)
Ответ:
Vladisimus
Vladisimus
07.01.2020
Простые числа от 5584 до 6654. В скобках после каждого я поставил его сумму цифр, а в конце строки количество четных:
5591(20), 5623(16), 5639(23), 5641(16), 5647(22), - 4
5651(17), 5653(19), 5657(23), 5659(25), 5669(26), - 1
5683(22), 5689(28), 5693(23), 5701(13), 5711(14), - 3
5717(20), 5737(22), 5741(17), 5743(19), 5749(25), - 2
5779(28), 5783(23), 5791(22), 5801(14), 5807(20), - 4
5813(17), 5821(16), 5827(22), 5839(25), 5843(20), - 3
5849(26), 5851(19), 5857(25), 5861(20), 5867(26), - 3
5869(28), 5879(29), 5881(22), 5897(29), 5903(17), - 2
5923(19), 5927(23), 5939(26), 5953(22), 5981(23), - 2
5987(29), 6007(13), 6011(09), 6029(17), 6037(16), - 1
6043(13), 6047(17), 6053(14), 6067(19), 6073(16), - 2
6079(22), 6089(23), 6091(16), 6101(08), 6113(11), - 3
6121(10), 6131(11), 6133(13), 6143(14), 6151(13), - 2
6163(17), 6173(17), 6197(23), 6199(25), 6203(11), - 0
6211(10), 6217(16), 6221(11), 6229(19), 6247(19), - 2
6257(20), 6263(17), 6269(23), 6271(16), 6277(22), - 3
6287(23), 6299(26), 6301(10), 6311(11), 6317(17), - 2
6323(14), 6329(20), 6337(19), 6343(16), 6353(17), - 3
6359(23), 6361(16), 6367(22), 6373(19), 6379(25), - 2
6389(26), 6397(25), 6421(13), 6427(19), 6449(23), - 1
6451(16), 6469(25), 6473(20), 6481(19), 6491(20), - 3
6521(14), 6529(22), 6547(22), 6551(17), 6553(19), - 3
6563(20), 6569(26), 6571(19), 6577(25), 6581(20), - 3
6599(29), 6607(19), 6619(22), 6637(22), 6653(20). - 3
Всего 120 простых чисел, из них 57 имеют четную сумму цифр.
4,7(75 оценок)
Это интересно:
К
Как сварить овощи: простые рецепты и полезные советы...
П
Как определить пол хомячка...
С
Как справиться с месячными...
З
Здоровье
30.11.2022
Как быстро сбросить вес воды: советы от диетолога...
Д
Дом-и-сад
16.01.2020
Почистить берберский ковер: простые и эффективные способы...
Д
Дом-и-сад
24.02.2020
Не выбрасывайте апельсиновую кожуру! Узнайте, как получить из нее масло...
С
Как носить шорты с высокой талией и выглядеть стильно...
К
Как полностью удалить приложение на iPhone с Apple Cloud с помощью iTunes...
С
Как быстро и натурально очистить кожу...
З
Здоровье
30.11.2022
Как избавиться от взрослых подгузников: советы от эксперта...
Новые ответы от MOGZ: Информатика
kokosik23
kokosik23
16.02.2022
1.чему равна сумма десятичного числа10 и двоичного числа 10 в десятичной системе счисления 1)20 2)12 3)21 4)1010 число 12 десятичной системы счисления в двоичной системе счисления...
sobitlogin
sobitlogin
19.12.2020
Логическая функция F задаётся выражением...
rom252
rom252
06.02.2021
Дан массив А[n], из 10 элементов (1; 5; -2; 3; -5; 6; 0; -5; 0; 1) и фрагмент программы. S:=0; for i:=1 to 10 do s:=s+a[i]; writeln(s); *...
09876нг8678
09876нг8678
09.01.2021
Решить, ! произошла перекодировка из 7-битного кода в 16-битную кодировку. при этом инф.сообщение увеличилось на 108 бит. найдите кол-во символов....
karamanilya
karamanilya
10.02.2023
Решить ! 1. составить программу для вычисления по формуле: y = √|2x² - 7x| + 12 2. составить программу для вычисления значения функции: 3. дано натуральное n. вычислить: s=2*4*6**2n....
qppqwoow
qppqwoow
22.08.2022
ответь на вопросы, письменно, в рабочей тетради: 1. Проводные линии связи – это … 2. Беспроводные сети – это.. 3. Что такое Bluetooth? 4. Для чего используется Bluetooth? 5....
tt9692069
tt9692069
12.05.2021
Спишите, вставьте пропущенные буквы и знаки препинания: 1) со…нце обойдя дом и уже перех…дя на западное небо з…ркально загляд…вало под сосны и пихты своими хвойными ветвями...
TopovayaKisa69
TopovayaKisa69
12.05.2021
Для растворения 5,2 г смеси порошкообразного магния и железа потребовалось 137,4 мл 10 мас. % раствора серной кислоты, плотность которого равна 1,07 г/см3 . сколько литров хлора...
ruslangusen
ruslangusen
12.05.2021
Вырази в более мелких единицах измерения: 50дм- 6см- 6см 3дм- 1год- 3сут.- 7ч-...
алисаалисаалиса1
Плотность по азоту смеси двух изомеров углеводородов равна 2,0. при взаимодействии 16,8 г этой смеси с hbr получено 27,4 г. соответствующего монобромпроизводного. определите...

MOGZ ответил

Полный доступ к MOGZ
Живи умнее Безлимитный доступ к MOGZ Оформи подписку
О НАС
ПОМОЩЬ
App
.
.
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ