<span><span>
Sin(x)
функция
<span>x - real,
</span></span><span>Cos(x)
функция
<span>x - real,</span></span></span>
Program vasha_zadacha_1;
var a,b,c:integer ;
begin
c:=0;
writeln('введите промежуток от');
readln(a);
writeln('до');
readln(b);
if a>b then
for b:=b to a do begin
if (b mod 5<>0) then c:=c+1;
end;
for a:=a to b do begin
if (a mod 5<>0) then c:=c+1;
end;
writeln('колличество чисел не кратных пяти в этом диапазоне ', c);<span>
end.</span>
Алг
нач
нц для i от 1 до 4
закрасить
вправо
закрасить
вправо
закрасить
вправо
закрасить
вправо
вниз
кц
кон
В блоке объявления переменных (var) тип переменной (в данном случае byte) объявляется после двое точия, а не знака равно
То есть вместо Var h=byte; нужно Var h:byte;