Question

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

Answer 1

бут уже профи

ото еше рак ты

ты
1. 
Program TuKpa6;varx,b:integer;BEGIN  writeln('BBegu b u x');   readln(b);  readln(x);  writeln('npoJleTuT ',b*x,' kuJloMeTpoB 3a ',x,' 4acoB');END.

2. 
Program TuKpa6;varx:integer;BEGIN  writeln('BBeguTe rog');  readln(x);  if x mod 4 = 0 then    begin      writeln('rog BucokocHbiII kek');      end  else     begin      writeln('rog HeBucokocHbiII');    end;END.

3.
Program TuKpa6;varx:integer;BEGIN  writeln('BBeguTe 4ucJlo');  readln(x);  if x<=12 then    begin      writeln('3aga4a');    end  else      begin        writeln('y=',38*x-8);      end;END.

5d74e5206239341382f285dcd26d5d18.pas

698e26631fe8b13c65198d3938ea0c2e.pas

9eabd6d462867f04013721176a39c701.pas