1.
<span>var a,b,i,k:integer;
begin
readln(a,b);
k:=0;
for i:=a to b do
if i mod 2=0 then k:=k+1;
writeln('k = ',k);
end<span>.
Пример:
5 20
k = 8
2.
var a,b,c:integer;
begin
readln(a,b);
c:=a;
a:=b;
b:=c;
writeln(a,' ',b);
end.
Пример:
5 20
20 5</span></span>
Могу предположить, что это - <em>Расширение</em> (файла). Например 123.txt (Текстовый файл с названием 123), 123.wmw (Видео файл).
Var s:string;l,k,p:integer;beginwrite('Введите текст');//s:='Проверочный текст для разделения на слова и мы';read(s);l := s.Length;p:=1;while p <= l do beginif s[p] = 'ы' then k:= k +1;p:=p +1;end;write(l,k);end.
Мы взяли функцию f(x) = sin(x)-2*cos(x).
В процедуру-функцию function можно вставлять любые функции
program func;
uses Crt;
var a, b, x, y:real;
function f(var x:real):real;
begin
f:=sin(x)-2*cos(x);
end;
begin
ClrScr; {Очистка экрана}
Write (' a= '); ReadLn(a);
Write (' b= '); ReadLn(b);
WriteLn;
x:=a;
while x<=b do
begin
y:=f(x);
WriteLn ('y(', x:1:0, ')= ', y:4:2);
x:=x+1;
end;
ReadLn;
end.