Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

1.Производительность одного рабочего l деталей в час,сколько деталей изготавливает N рабочих,за 5 часов?
2.Ввести два числа.отрицательные возвести в квадрат,для не отрицательных найти корень из числа.
Решите пожалуйста!)

Ответ оставил Гость

1.
var i, n, d: integer;
begin
write(Введите I, N>> );
read(i, n);
d:=i*n*5;
writeln(d, деталей);
end.

2.
var a, b: real;
begin
write(Введите 2 числа>> );
read(a, b);
if (a<0) then a:=sqr(a) else a:=sqrt(a);
if (b<0) then b:=sqr(b) else b:=sqrt(b);
write(a = , a,  b = , b);
end.