2.) var x1, y1, x2, y2, n1, n2: real; begin write('x1, y1: '); read(x1, y1); write('x2, y2: '); read(x2, y2); n1:= sqrt(sqr(x1)+sqr(y1)); writeln(n1); n2:= sqrt(sqr(x2)+sqr(y2)); writeln(n2); if n1<>n2 then if n1<n2 then writeln('1 точка находится ближе к началу координат.') else writeln('2 точка находится ближе к началу координат.') else writeln('Точки находятся на равном расстоянии от начала координат.') end.
3.) var n, x, a, b, c, s: integer; beginwrite('Введите число: '); readln(n); if (n>99) and (n<1000) then begin write('Введите x: '); readln(x); a:= n div 100; b:= (n - a*100) div 10; c:= (n - a*100 - b*10); if a=x then s:=s+1; if b=x then s:=s+1; if c=x then s:=s+1; if s>0 then writeln('В числе есть ', x) else writeln('В числе нет ', x); end else writeln('Число не трехзначное'); end.
var sum, i: integer; begin sum := 0; for i := 1 to 100 do sum := sum + i; writeln('Сумма всех чисел от 1 до 100: ', sum); end.
№2
var p, i: integer; begin p := 1; for i := 1 to 10 do p := p * i; writeln('Произведение всех чисел от 1 до 10: ', p); end.
№3
У вас не дано никаких условий. Вот задача для условия: "Членов прогрессии - 100, шаг - 3"
var A, i, k, max: integer; begin i := 3; max := 100; for k := 1 to max do begin A := A + i;write( A, ' '); end; end.
№4
var sum, x: real; a: array[1..10] of real; i: integer; begin sum := 0; for i := 1 to 10 do begin write('Введите ', i, ' число: '); readln(a[i]); sum := sum + a[i]; end;
var x1, y1, x2, y2, n1, n2: real;
begin
write('x1, y1: ');
read(x1, y1);
write('x2, y2: ');
read(x2, y2);
n1:= sqrt(sqr(x1)+sqr(y1));
writeln(n1);
n2:= sqrt(sqr(x2)+sqr(y2));
writeln(n2);
if n1<>n2 then
if n1<n2 then
writeln('1 точка находится ближе к началу координат.')
else
writeln('2 точка находится ближе к началу координат.')
else
writeln('Точки находятся на равном расстоянии от начала координат.')
end.
3.)
var n, x, a, b, c, s: integer;
beginwrite('Введите число: ');
readln(n);
if (n>99) and (n<1000) then
begin
write('Введите x: ');
readln(x);
a:= n div 100;
b:= (n - a*100) div 10;
c:= (n - a*100 - b*10);
if a=x then s:=s+1;
if b=x then s:=s+1;
if c=x then s:=s+1;
if s>0 then
writeln('В числе есть ', x)
else writeln('В числе нет ', x);
end
else
writeln('Число не трехзначное');
end.