Нужно решить две задачи в паскаль Вот это шаблон кода:
program zadacha;
var x, y, t1, t2, t3, s, t:real;
begin
write ('Ведіть кілкість курочок: ');
readln(x);
write ('Ведіть кілкість півників: ');
readln(y);
write ('Ведіть кілкість хвилин витрачених на курочку: ');
readln(t1);
write ('Ведіть кілкість хвилин витрачених на півника: ');
readln(t2);
t3:=t1/60;
t:=x*t3+y*t2;
s:=x+y;
writeln('Кілкість утікачів ', s:0:0);
writeln('Кілкість годин ', t:0:0);
end.
Робототе́хника (от робот и техника; англ. robotics — роботика[1], роботехника[2]) — прикладная наука, занимающаяся разработкой автоматизированных технических систем и являющаяся важнейшей технической основой развития производства[3].
Робототехника опирается на такие дисциплины, как электроника, механика, кибернетика, телемеханика, мехатроника[4], информатика, а также радиотехника и электротехника. Выделяют строительную, промышленную, бытовую, медицинскую, авиационную и экстремальную (военную, космическую, подводную) робототехнику.
Var a, b, c, d, a1, b1, c1, d1:real;
begin
a1:=0; b1:=0; c1:=0; d1:=0;
read (a, b, c, d);
if (a<0) or (b<0) or (c<0) or (d<0) then
begin
if (a<0) then a1:=a;
if (b<0) then b1:=b;
if (c<0) then c1:=c;
if (d<0) then d1:=d;
writeln ('Сумма отрицательных = ', a1+b1+c1+d1);
a1:=1; b1:=1; c1:=1; d1:=1;
if (a<0) then a1:=a;
if (b<0) then b1:=b;
if (c<0) then c1:=c;
if (d<0) then d1:=d;
writeln ('Произведение отрицательных = ', a1*b1*c1*d1);
end
else writeln ('Все числа больше либо равны 0');
end.
Объяснение: