Регистрация
Enotiha217
16.10.2022 11:35
Информатика
Есть ответ 👍

Надо сделать две на выбор ​

300
500
Посмотреть ответы 2

Ответы на вопрос:

egorshihov98
egorshihov98
4,5(45 оценок)

Задача 1:

var X,Y,tmp: double;

begin

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

readln(X);

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

readln(Y);

if (X<Y) then begin

tmp:=X;

X:=(X+Y)/2;

Y:=tmp*Y*2;

end

else begin

tmp:=Y;

Y:=(X+Y)/2;

X:=tmp*X*2;

end;

writeln('X=',X);

writeln('Y=',Y);

end.

Задача 6

var a,b,c,cnt: integer;

begin

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

readln(a);

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

readln(b);

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

readln(c);

cnt:=0;

if (a<0) then cnt:=cnt+1;

if (b<0) then cnt:=cnt+1;

if (c<0) then cnt:=cnt+1;

writeln('Кол-во отрицательных чисел: ',cnt);

end.

qwertyytrewq0192
qwertyytrewq0192
4,5(24 оценок)
Var h,a: integer; s: real; begin read(h); read(a); s: =1/2*h*a; writeln(s: 8: 4); end.

Популярно: Информатика