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>
program n_1;
uses crt;
var
n: longint;
k: integer;
function Sym(n: integer): char;
begin
case n of
0..9: Sym := chr(48 + n);
10..36: Sym := chr(55 + n);
end;
end;
function funct(n: longint; k: integer): string;
var
st: string;
begin
st := '';
if n = 0 then st := '0' else
begin
while n >= 1 do
begin
st := Sym(n mod k) + st;
n := n div k;
end;
end;
DecToX := st;
end;
begin
readln(n);
repeat
readln(k);
until (2 <= k) and (k <= 36);
writeln(funct(n, k));
end.
Kрасный,оранжевый, желтый, зелёный, голубой. Синий,фиолетовый
Program n1;
var a,sum: integer;
begin
readln(a);
while a<>0 do
begin
if (a mod 6=0) and (a mod 10=4) then sum:=sum+a;
readln(a);
end;
writeln(sum);
end.
Var
a: array[1..50] of integer;
max, maxi: integer;
begin
Randomize;
for var i := 1 to 50 do a[i] := Random(1, 1000);
writeln(a);
max := a[1];
maxi := 1;
for var i := 1 to 50 do
if a[i] > max then begin
max := a[i];
maxi := i;
end;
a[maxi] := 0;
writeln('Максимальный был на ', maxi, ' месте и равнялся ', max);
writeln(a);
<span>end.</span>
