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

Даны две фамилии. определить, сколько раз во втором слове встречается первая буква первой фамилии. please, нужно написать программу на pascal abc.net, используя служебное слово string.

👇
Ответ:
ekarerinazak05
ekarerinazak05
20.12.2021
// PascalABC.NET 3.1, сборка 1230 от 27.04.2016
begin
  var s:=ReadlnString('>').ToWords;
  var c:=UpCase(s[0][1]); // первая буква первого слова
  var w:string:=s[1].ToUpper; // второе слово на верхнем регистре
  var n:=0;
  for var i:=1 to w.Length do
    if Pos(c,w[i])>0 then Inc(n);
  Writeln('Буква "',s[0][1],'" встретилась во втором слове ',
    n,' раз(а)')
end.

Тестовое решение
> Васильев   Воеводченков
Буква "В" встретилась во втором слове 3 раз(а)
4,6(4 оценок)
Ответ:
катейка22
катейка22
20.12.2021
//Pascal ABC.NET v3.1 сборка 1219

Var
 s,s1:string;
 i,k:integer;
 c:char;
begin
 readln(s);
 s1:=copy(s,pos(' ',s),length(s)-pos(' ',s)+1);
 c:=s[1];
 while (pos(upcase(c),s1)<>0) do
  begin
   delete(s1,pos(upcase(c),s1),1);
   inc(k);
  end;
 while (pos(lowcase(c),s1)<>0) do
  begin
   delete(s1,pos(lowcase(c),s1),1);
   inc(k);
  end;
 writeln('Count=',k);
end.

Пример ввода:
Резванов Рерзялков
Пример вывода:
Count=2
4,8(1 оценок)
Открыть все ответы
Ответ:
temaghj2
temaghj2
20.12.2021

для c++

числа в диапазоне от -50 до 50

Объяснение:

#include <iostream>

#include <string>

#include <ctime>

using namespace std;

int main()

{

srand(time(NULL));

const int size=7;

int arr[size];

cout << "Random array from 7 numbers" << endl;

for (int i=0; i<size; i++)

{

cout << (arr[i] = rand ()%51 -49) << endl;

}

const int abc = 77;

int array [abc];

cout << "Array from 77 elements" << endl;

for (int j=0; j<abc;j++)

{

cout << (array[j] = rand ()%51 -49) << endl;

}

return 0;

}

4,4(35 оценок)
Ответ:
zajcevaalisa
zajcevaalisa
20.12.2021
1) Числовые значения, которые вводятся, как правило, никак не отформатированы. Другими словами, они состоят из последовательности цифр. Лучше всего форматировать числа, чтобы они легко читались и были согласованными в смысле количества десятичных разрядов.
2) На вкладке Главная выберите Форматировать как таблицу или разверните коллекцию Стили таблиц на вкладке Работа с таблицами > Конструктор (на компьютерах Mac — на вкладке Таблицы). Выберите Создать стиль таблицы. Откроется диалоговое окно Создание стиля таблицы. В поле Имя введите название нового стиля.
3) При вставке или выберите таблицу в Microsoft Publisher 2010 Контекстная вкладка Работа с таблицами будут доступны на ленте. Эта вкладка содержит две вкладки, Оформление и Макет, предоставляющие возможность быстро отформатировать таблицу, вставка или удаление строк и столбцов, задать выравнивание ячеек и форматировать оформление текста в таблицу.
4,6(23 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ