4 года назад

Помогите плс написать команды в паскале. Сделать надо номер 2 и 3

Знания

Информатика

1 ответ:

uuu8888uuu [152]4 года назад

0 0

Ответ:

Объяснение:

program uravn;

var x,y:real;

begin

writeln('Введите х');

readln(x);

y:=x+2.5;

y:=y*x;

y:=y-1;

y:=y*x;

y:=y+1;

writeln('y=',y:4:2);

readln;

end.

program rasst;

var

d,xa,ya,xb,yb:real;

begin

writeln('Введите координаты точек А(xa,ya), В(xb,yb)');

write('xa=');

readln(xa);

write('ya=');

readln(ya);

write('xb=');

readln(xb);

write('yb=');

readln(yb);

d:=sqrt(sqr(xb-xa)+sqr(ya-yb));

writeln('|AB|=',d:4:2);

readln;

end.

Читайте также

Помогите с информатикой,5 класс

valer [50]

Монитор отображает информацию

0 0

4 года назад

Дан массив C(m). Найти отношение максимального к минимальному элементу. Написать программу в Pascal,пожалуйста

Светлана Нанквова

const m=10;

var c:array[1..m] of integer;

max,min,i,j: integer;

begin

writeln('Массив:');

for i:=1 to m do

begin

c[i]:=random(50);

write(c[i],' ');

end;

writeln;

max:=c[1];

min:=c[1];

for i:=2 to m do

begin

if c[i]>max then max:=c[i];

if c[i]<min then min:=c[i];

end;

writeln('max = ',max,' min = ',min,' max/min = ',max/min:5:2);

end.

Пример:

Массив:

27 29 35 42 30 42 27 42 21 31

max = 42 min = 21 max/min = 2.00

0 0

4 года назад

Составьте программу, которая выводит на экран пример на умножение двух целых чисел, запрашивает ответ пользователя, проверяет ег

alezzi

Program umnochen1;
uses crt;
var a,b,c,d:integer;
BEGIN
a:=random(100);
b:=random(100);
c:=a*b;
write(a,'x',b,'=');
read(d);
if (d=c) then begin
textcolor(2);
writeln('Првильно!')
end
else
begin
textcolor(4);
writeln('Вы ошиблись!');
end;
<span>end.</span>

0 0

4 года назад

В Паскале ввести целое число и определить сколько в этом числе троек. Я не очень в программировании, поэтому помогите пожалуйста

ВладимирТарасов [67]

Var a,b,c,d:integer;
begin
writeln('введите числo');
readln(a);
b:=0;
while a<>0 do begin
c:=a mod 10;
a:=a div 10;
if c=3 then b:=b+1;
end;
writeln('количество троек в числе ',b);
<span>end.</span>

0 0

3 года назад

Автоматическая фотокамера производит растровые изображения размером 480 x 80 пикселей. При этом объём файла с изображением не мо

levaen [7]

256 цветов можно использовать

0 0

4 года назад