Один из возможных вариантов (если не затрагивать глубоко эти системы), дан во вложении.
Ну вот, странная программа! Мне каж это не вся прога!
Лукас мне:3
===== PascalABC.NET =====
begin
var x := ReadReal('x =');
var y := x * x + 1.8;
var k: real;
if y < 10 then
k := Sin(y)
else if y > 20 then
k := Tan(y)
else
k := y * y;
Print(k)
end.
Var a,b,i:integer;
begin
write('a='); readln(a);
write('b='); readln(b);
for i:=a to b do if i mod 3 = 0 then write(i,' ');
writeln;
<span>end.
Пример:
a=10
b=20
<span>12 15 18 </span></span>
Решение в прикрепленном файле, воспроизвел таблицу только по последним трем столбцам.
формула для вычисления налога: =ЕСЛИ(A2<=1700;A2*0,12;A2*0,2)
формула для вычисления на руки: =A2-B2
формула для вычисления итого: <span>=СУММ(C2:C11)</span>