1)
Program n1;
var a,b,c: real;
begin
readln(a,b,c);
writeln('D=',b*b-4*a*c);
end.
2)
Program n1;
begin
writeln('площадь: ',5.8*5.8*pi-3.8*3.8*pi);
end.
2^1024= 100....000 2(cc) - 1 и 1024 нуля
2^1000 = 100....000 (2cc) - 1 и 1000 нулей
2^1000 -1 = 111...111 (2cc) - 1000 штук единиц
2^1024 + (2^1000 - 1) = 100...000 +111....111 (2cc) =100...111...111 (2cc) -
- всего 1024 разряда (цифр 1 и 0)
1024 (общее количество цифр) - 1001 (единиц) =23 (нуля) <---ответ
// PascalABC.NET 3.1, сборка 1218 от 12.04.2016
begin
var a:=ReadAllLines('int.txt').JoinIntoString.ToIntegers;
Print('Прочитано'); a.Println;
var b:=a.Where(x->x>0);
Print('Отобрано'); b.Println;
var f:=OpenWrite('out.txt');
foreach var e in b do Write(f,e,' ');
f.Close
end.
<u><em>Тестовое решение:</em></u>
Прочитано -5 8 -3 -2 0 -6 4 9 0 0 4 -4 -1 0 -1 3 6 7 1 8 0 2 -5 -2 9
Отобрано 8 4 9 4 3 6 7 1 8 2 9
156/2=78 (0)
78/2=39 (0)
39/2=19 (1)
19/2=9 (1)
9/2=4 (1)
4/2=2 (0)
2/2=1 (0)
1/2=0 (1)
Остатки от деления записываем в обратном порядке.Получаем: 10011100
156=10011100 (2)
Ответ: 4.
Развёрнутый ответ (решение) на всякий случай :)
Блок-схема расчета площади квадрата
в приложении.