Program ez;
var a,b: real;
begin
read(a,b);
a:= a/2;
b:=b+30;
writeln(a);
writeln(b);
end.
Если что-то не так пиши
<em>// PascalABC.NET 3.3, сборка 1611 от 06.01.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var (a,b,c):=ReadReal3('Введите три числа:');
if b.Between(a,c) then (a,b,c):=(2*a,2*b,2*c);
if (a<0) or (b<0) or (c<0) then (a,b,c):=(Abs(a),Abs(b),Abs(c));
Writeln('a=',a,', b=',b,', c=',c)
end.
Пример
Введите три числа: 3.6 -5.2 8
a=3.6, b=5.2, c=8
Первый оператор читает с клавиатуры три вещественных числа и помещает их в переменные a,b,c.
Второй оператор проверяет, находится ли второе число (b) между остальными двумя (может и совпадать с одним из них). Если да, то значение каждой переменной удваивается.
Третий оператор проверяет, есть ли среди введенных чисел хоть одно отрицательное. Если есть, значения заменяются их модулями (становятся положительными).
И в конце следует вывод результатов.
Массив заполним случайными целыми от 0 до 20
//PascalABC.NET (версия 3.1, сборка 1198 от 11.03.2016)
begin
var a:=arrrandom(15,0,20);
println(a);
var s:=0;
for var i:= 0 to 14 do
if (a[i]>10) and (a[i]<15) then s +=1;
println('таких чисел ',s);
end.
1)56(10)=111000(2); тут все просто, берем и делим число 56:2=28(остаток 0),28:2=14(остаток 0), 14:2=7(остаток 0), 7:2=3(остаток 1),3:2=1(остаток 1) и потом все 1 и 0 записываем в обратном порядке, то есть получается 111000
2)174(8)=124(10). Немного по другому, 1*8^2+7*8^1+4*8^0=124, т. к. 8 это основание, степени ставят с конца и по возрастающей (не забудь, что любое число в 0 степени равно 1)
3)2A,4(16)=42,25(10). Как и во 2) А=10(так как 16 система счисления)
