Задача 1)
//PascalABC.NET
begin
writeln('Введите через пробел три числа');
var a := ReadArrInteger(3);
write('Разность большего и меньшего равна ');
writeln( a.Max - a.Min )
end.
Задача 2)
//PascalABC.NET
var
y : array of real;
begin
// Запрашиваем область определений
write('Введите a: ');
var a := ReadlnReal();
write('Введите b: ');
var b := ReadlnReal();
write('Введите k: ');
var k := ReadlnReal();
// Резервируем массив для значений функции
y := new real[Round((b - a) / k) + 1];
// Заполняем массив данными
for var i := 0 to Round((b - a) / k) do
begin
y[i] := Exp(a) - Sin(a) * Cos(a);
// Следующее значение
a += k
end;
// Выводим массив на экран
foreach var i in y do
writeln(i:8:3)
end.
Результаты в приложениях
<span>На доске по строчечке </span>
<span>Разместились кнопочки </span>
<span>Догадайтесь мальчики </span>
<span>Как здесь тыкать пальчиком? (Клавиатура) </span>
<span>Нет, она – не пианино, </span>
<span>только клавиш в ней – не счесть! </span>
<span>Алфавита там картина, </span>
<span>знаки, цифры тоже есть. </span>
<span>Очень тонкая натура. </span>
<span>Имя ей ...(Клавиатура). </span>
<span>То-то радость, то-то смех </span>
<span>На бумаге, без огрех, </span>
<span>Из какой коробки лезет </span>
<span>Текст на удивленье всех? </span>
<span>(Принтер) </span>
<span>По ковру зверек бежит, </span>
<span>То замрет, то закружит, </span>
<span>Коврика не покидает, </span>
<span>Что за зверь, кто угадает? </span>
<span>(Мышка) </span>
<span>Не зверушка, не летаешь, </span>
<span>а по коврику скользишь </span>
<span>и курсором управляешь. </span>
<span>Ты – компьютерная...(Мышь). </span>
<span>Чудо-юдо чемодан </span>
<span>Лампа, кнопка да карман. </span>
<span>Он окутан проводами </span>
<span>Словно город Амстердам. </span>
<span>(Системный блок) </span>
512*4=4096)
половина кб это 512 бит
Блок-схема во вложении. Вот, если пригодится - программа
var
h,n:integer;
begin n:=1;
while h<=24 do
begin
h:=h+3;
n:=n*2;
end;
writeln(n);
<span>end.
</span>
