Var
a, b: integer;
begin
readln(a, b);
writeln('Сумма чисел: ', a+b);
writeln('Разница между числами: ', abs(a-b));
writeln('Квадрат разности: ', sqr(a-b));
writeln('Частное: ', a div b);
writeln('Остаток от деления первого на второе: ', a mod b);
end.
Это информатика?
высь, гусь, рысь, лось
Const e=0.00001;
var x,x0,xk,h,a,s,y:real; n,i,k:integer;
begin
write('x0=');readln(x0);
write('xk=');readln(xk);
h:=0.1;
x:=x0-h;
n:=round((xk-x0)/h)+1;
writeln('№ x S(x) y(x)');
for i:=1 to n do
begin
x:=x+h;
a:=1; s:=a; k:=0;
while abs(a)>e do begin
a:=-a*2*x/(2*k+1)/(2*k+2);
s:=s+a;
inc(k);
end;
writeln(i:2,' ',x:3:1,' ',s:8:5,' ',cos(sqrt(2*x)):8:5);
end;
end.
Пример:
x0=0.5
xk=1.5
№ x S(x) y(x)
1 0.5 0.54030 0.54030
2 0.6 0.45765 0.45765
3 0.7 0.37795 0.37795
4 0.8 0.30114 0.30114
5 0.9 0.22716 0.22716
6 1.0 0.15594 0.15594
7 1.1 0.08744 0.08744
8 1.2 0.02160 0.02160
9 1.3 -0.04164 -0.04164
10 1.4 -0.10234 -0.10234
11 1.5 -0.16056 -0.16056
Program qfdw;
uses crt;
Type
vershina=Record
Tochka:string;
X,Y:real;
end;
ps=File of vershina;
Var f:ps;
z,a,b,c:vershina;
i:integer;
Begin
assign(f,'1.dat');
rewrite(f);
writeln('Введите вершины треугольника и их координаты: ');
for i:=1 to 3 do
begin
writeln(i,'-я вершина');
write('буква: ');read(z.tochka);
write('X=');read(z.x);
write('Y=');read(z.y);
write(f,z);
end;
Close(f);
assign(f,'1.dat');
reset(f);
read(f,a);
read(f,b);
read(f,c);
close(f);
writeln('Cтороны треугольника:');
writeln(a.tochka,b.tochka,' = ',sqrt((a.x-b.x)*(a.x-b.x)+(a.y-b.y)*(a.y-b.y)):5:2);
writeln(c.tochka,b.tochka,' = ',sqrt((c.x-b.x)*(c.x-b.x)+(c.y-b.y)*(c.y-b.y)):5:2);
writeln(a.tochka,c.tochka,' = ',sqrt((a.x-c.x)*(a.x-c.x)+(a.y-c.y)*(a.y-c.y)):5:2);
end.
Var
a, n, i, c: integer;
begin
c := 0;
readln(n);
for i := 1 to n do
begin
read(a);
if(a <= 17) then c := c + 1;
end;
writeln(c);
end.