Program Nalog;{Uses crt}{Если надо}varz,x:real;begin
Write('Ввидите число ');Read(x);If x<2500 then Writeln('налог = 0');
beginif (x>=2500) and (x<10000) thenz:=x*0.13;Writeln('Налог=',z);end;Beginif x>=10000 then z:=(x-1300)*0.15;Writeln('Налог=',z);{READLN - Если турбо поскаль или фрии}end;<span>end.
Картинка снизу
Только есть 1 проблемв с последним
</span>
var
m: array [1..10000] of integer;
i,n: integer;
begin
readln(n);
for i := 1 to n do
read(m[i]);
for i := 1 to n do
write(m[i], ' ');
writeln;
for i := n downto 1 do
write(m[i],' ')
end.
Устройство обработки информации называется процессор
В счетчиках можно вместо 5 указать константу n и где вывод проверку если равен n запятую не печатаем