Составьте программу на языке паскаль 1) y=4x+5 2) a=b*2c​

1)

var

x, y: integer;

begin

readln(x);

y : = 4*x+5;

writeln(y)

end.

2)

var

a, b,c : integer;

begin

readln(b);

readln(c);

a : =b*2*c;

writeln(a);

end.

// pascalabc.net 3.0, сборка 1128 begin   var s: =readstring('введите строку: ');   var d1: =copy(s,1,s.length div 2).where(x-> x='? ').count;   var d2: =s.where(x-> x='? ').count-d1;   if d1> d2 then writeln('в первой половине больше "? "')   else       if d1< d2 then writeln('во второй половине больше "? "')       else writeln('поровну "? "') end. тестовое решение: введите строку: 54ttge5t? getg5? ? ee4t3t? #43t4gfdaf? ss? sfsf? sfse в первой половине больше "? "

Var x,y: real;   begin  writeln('введите координаты точки');   read(x,y);   if (x> 0) and (y> 0) then writeln('точка лежит в i координатной четверти');   if (x> 0) and (y< 0) then writeln('точка лежит в iv координатной четверти');   if (x< 0) and (y< 0) then writeln('точка лежит в iii координатной четверти');   if (x< 0) and (y> 0) then writeln('точка лежит в ii координатной четверти');   if x=0 then writeln('точка лежит на оси y');   if y=0 then writeln('точка лежит на оси х');   end.