Ответ:
Программу?
uses crt;
var fiz,math,inf:integerl
begin
*
readln(fiz,math,inf);
if (fiz = 4) and (math = 4) and (inf = 4) or (fiz = 5) and (math = 5) and (inf = 5) then write('Ученик получит стипендию');
end.
* по желанию, можешь добавить на место звездочки write('Физика, Математика, Информатика сданы на: ');
Alt+Tab можно удерживать видя последовательность окон
<span>прямопропорционально</span>
program TabulW;
var
a, b, c, x, dx, w: real;
begin
a := 2.8;
b := -0.3;
c := 4.0;
x := 1.0;
dx := 0.05;
Writeln(' a b c x w');
while x - 2 < 0.0001 do
begin
if x < 1.2 then
w := a * x * x + b * x + c
else if x > 1.2 then
w := (a + b * x) / sqrt(x * x + 1)
else
w := a / x + sqrt(x * x + 1);
Writeln(a:6:3, b:8:3, c:8:3, x:8:3, w:8:3);
x += dx
end;
Readln;
end.
24+8=32
log2(32)=5
39x5=195 бит = 24 байта