ОТДЕЛ Задание+;
ИСПОЛЬЗУЕТ Вывод ИЗ "...\Отделы\Обмен\", Приём;
ПЕР
число: ЦЕЛ;
полож, черед: КЛЮЧ;
УКАЗ
черед := ВКЛ;
число := Приём.Число();
полож := число > 0;
ПОКА число # 0 ВЫП
Вывод.Цепь("^");
ЕСЛИ (полож И число > 0) ИЛИ (НЕ полож И число < 0) ТО
черед := ОТКЛ
КОН;
число := Приём.Число();
полож := число > 0
КОН;
ЕСЛИ черед ТО Вывод.Цепь("Чередуются.") КОН
КОН Задание.
Это были огромные, порой занимающие сотни квадратных метров площади, ламповые машины 50-х годов. Они работали на электровакуумных лампах, которых могло быть понатыкано тысячами.
Одной из первых ЭВМ была ENIAC, она представляла собой огромную машину длиной около 30-ти метров, содержала 18.000 электровакуумных ламп и потребляла около 150 киловатт.
Не было ни монитора, ни клавиатуры, ни мыши, для ввода данных использовали перфокарты или перфоленты. Эти машины обычно использовали для расчётов, где не применялись большие объёмы памяти.
Потом, в 1559 г. в США создали транзистор, который заменил электровакуумные лампы, наступило 2-ое поколение ЭВМ..
<em>// PascalABC.NET 3.3, сборка 1555 от 21.10.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var HasReal:(real,real,real)->boolean:=(a,b,c)->b*b-4*a*c>=0;
Writeln(HasReal(5.5,-3,4.2));
Writeln(HasReal(1,-2,-6))
end.
<u>Результат</u>
False
True
Первая строка - определение функции HasReal, остальные две - примеры обращения к ней.
Ответ:
void print(vector<int> a, int size = -1)
{
for(int i = 0, d = 0; i < size; i++)
{
cout << a[i] << " ";
if (i == size - 1 && d != 1)
{
cout << "\n";
size = a.size();
i = -1;
d++;
}
}
}
Объяснение:
МШП?
Исходя из текста условия можно предложить что имеется ввиду преобразование текста из одной кодировки в другую. Если предположение верно, то задача описывается следующим уравнением:
16*n - 800 = 8*n
n=100
где n - число символов
