Задание #1

Во Разработчиком языка Паскаль является:

Выберите один из 4 вариантов ответа:

1) Блез Паскаль

2) Никлаус Вирт

3) Норберт Винер

4) Эдсгер В.Дейкстра

Задание #2

Во Что из нижеперечисленного не входит в алфавит языка Паскаль?

Выберите один из 4 вариантов ответа:

1) латинские строчные и прописные буквы

2) служебные слова

3) русские строчные и прописные буквы

4) знак подчеркивания

Задание #3

Во Какая последовательность символов не может служить именем в языке Паскаль?

Выберите один из 4 вариантов ответа:

1) _mas

2) maS1

3) d2

4) 2d

Задание #4

Во Вещественные числа имеют тип данных:

Выберите один из 4 вариантов ответа:

1) real

2) integer

3) boolean

4) string

Задание #5

Во В программе на языке Паскаль обязательно должен быть:

Выберите один из 4 вариантов ответа:
1) заголовок программы

2) блок описания используемых данных

3) программный блок

4) оператор присваивания

Задание #6

Во Какого раздела не существует в программе, написанной на языке Паскаль?

Выберите один из 4 вариантов ответа:

1) заголовка

2) примечаний

3) описаний

4) операторов

Задание #7

Во Языковые конструкции, с которых в программах записываются действия, выполняемые в

процессе решения задачи, называется:

Выберите один из 4 вариантов ответа:

1) операндами

2) операторами

3) выражениями

4) данными

Задание #8

Во Разделителями между операторами служит:

Выберите один из 4 вариантов ответа:

1) точка

2) точка с запятой

3) пробел

4) запятая

Задание #9

Во Описать переменную - это значит указать её:

Выберите один из 4 вариантов ответа:

1) имя и значение

2) имя и тип
3) тип и значение

4) имя, тип и значение

Задание #10

Во В данном фрагменте программы:

programm error;

begin

suMma: = 25-14;

end.

ошибкой является:

Выберите один из 4 вариантов ответа:

1) некорректное имя программы

2) не определенное имя переменной

3) некорекктное имя переменной

4) запись арифметического выражения

👇

Увидеть ответ

Ответ:

nik6pw

15.11.2020

Сами думайте дебилы,тупые

4,8(95 оценок)

Открыть все ответы

Ответ:

йцукенг27

15.11.2020

Язык программирования не указан, сказано только, что была сделана попытка создать алгоритм в Пайтоне, но работа оказалась очень медленной. Это не удивительно, ведь Пайтон - интерпретатор и там уж не до оптимизации.

Предлагаю решение на PascalABC.NET. Приводятся тайминги пяти прогонов, разрешение таймера - 16 мс.

Исходные последовательности:
- 1 млн случайных целых из [100;2000];
- 2 млн случайных целых из [50;1500];
- 3 млн случайных целых из [1;1000];

Алгоритм:
- генерируем последовательности;
- создаем и заполняем для каждой последовательности частотный словарь в виде кортежа <ключ><количество>, где ключ - значение элемента, количество - количество раз, которое этот элемент встретился в последовательности;
- создаем последовательности ключей для всех трех словарей и находим их пересечение;
- удаляем из каждого словаря элементы, ключей которых нет в пересечении;
- создаем на основе каждого словаря последовательность значений (частот) и сортируем её по возрастанию;
- для каждой пары значений первой и второй последовательности выбираем минимальное значение, а затем поступаем так же с результирующей и третьей последовательностью, находя в конце сумму её членов.

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

begin
var t0:=Milliseconds;
var a1:=ArrRandom(1000000,100,2000);
var a2:=ArrRandom(2000000,50,1500);
var a3:=ArrRandom(3000000,1,1000);
var t1:=MillisecondsDelta;
Writeln('Инициализация: ',t1,' мс');
MillisecondsDelta;

var d1:=new Dictionary<integer,integer>;
foreach var e in a1 do d1[e]:=d1.Get(e)+1;
var d2:=new Dictionary<integer,integer>;
foreach var e in a2 do d2[e]:=d2.Get(e)+1;
var d3:=new Dictionary<integer,integer>;
foreach var e in a3 do d3[e]:=d3.Get(e)+1;
t1:=MillisecondsDelta;
Writeln('Заполнены частотные словари: ',t1,' мс');
MillisecondsDelta;

var kd1:=d1.Select(e->e.Key).ToArray;
var kd2:=d2.Select(e->e.Key).ToArray;
var kd3:=d3.Select(e->e.Key).ToArray;
var ki:=kd1.Intersect(kd2).Intersect(kd3); // пересечение ключей
t1:=MillisecondsDelta;
Writeln('Получено пересечение ключей: ',t1,' мс');
MillisecondsDelta;

foreach var k in kd1 do
    if not (k in ki) then d1.Remove(k);
var v1:=d1.OrderBy(x->x.Key).Select(x->x.Value);
foreach var k in kd2 do
    if not (k in ki) then d2.Remove(k);
var v2:=d2.OrderBy(x->x.Key).Select(x->x.Value);
foreach var k in kd3 do
    if not (k in ki) then d3.Remove(k);
var v3:=d3.OrderBy(x->x.Key).Select(x->x.Value);
var m:=v1.Zip(v2,(x,y)->Min(x,y)).Zip(v3,(x,y)->Min(x,y)).Sum;
t1:=MillisecondsDelta;
Writeln('Получен результат: ',t1,' мс');
MillisecondsDelta;
Writeln(m);
end.

Результаты
Инициализация: 234 мс
Заполнены частотные словари: 312 мс
Получено пересечение ключей: 0 мс
Получен результат: 1000 мс
474970

Инициализация: 234 мс
Заполнены частотные словари: 312 мс
Получено пересечение ключей: 16 мс
Получен результат: 984 мс
474137

Инициализация: 250 мс
Заполнены частотные словари: 312 мс
Получено пересечение ключей: 16 мс
Получен результат: 984 мс
474176

Инициализация: 234 мс
Заполнены частотные словари: 312 мс
Получено пересечение ключей: 0 мс
Получен результат: 1000 мс
474090

Инициализация: 234 мс
Заполнены частотные словари: 312 мс
Получено пересечение ключей: 16 мс
Получен результат: 984 мс
474108

Как видно из результатов, в указанных условиях из 6 млн значений отбирается примерно 475 тыс и занимает это порядка полутора секунд на достаточно немолодом ПК c процессором Intel Core 2 Duo (3 ГГц) и 2 Гб оперативной памяти. Вполне приемлемо.

4,5(16 оценок)

Ответ:

RomansPirs

15.11.2020

#include <iostream>
#include <vector>
#include <algorithm>
using namespace std;

int main() {
string s;
vector<char> vowels = {'a','e','i','o','u','y'};
cin >> s;
int count_letters = 0;
int count = 0;
int state = -1;
int c = state;
for(int i = 0 ;i < s.length(); i++, c = state) {
if(find(vowels.begin(),vowels.end(),s[i]) != vowels.end())
state = 0;
else state = 1;
if(c==state) count_letters++;
if(count_letters == 3) {
count_letters = 1;
count++;
}
}
cout << count ;
}

4,8(20 оценок)

Это интересно:

Дом-и-сад

10.09.2020

Как установить в доме камеры наблюдения для системы безопасности...

Здоровье

12.11.2020

Молочница: Причины, проявления и лечение в домашних условиях...

Мир-работы

14.09.2021

Как подготовиться к первому дню на новом месте работы...

Образование-и-коммуникации