Язык С: 36-Оператор вывода

Program zadacha; const pi=3.14; uses crt; var s,r,l,v,h: real; begin clrscr; write ('vvedite visoty: '); readln (h); write ('vvedite radius: '); readln (r); write ('vvedite obrazujuschujy: '); readln (l); s: =pi*r*l; v: =pi*r*2*h/3; writeln ('ploschad ravna=', s: 3: 2); writeln ('objem raven=', v: 3: 2); readln; end.

1)

program m; uses crt; var i,a,b,c,min: integer; beginclrscr; readln(a,b,c);

if a< min then min: =a; if b< min then min: =b; if c< min then min: =c; writeln('              ',min); readkey; end.

 

2)

program m; uses crt; var i,a,b,c,min,d: integer; beginclrscr; readln(a); min: =a; for i: =1 to 2 do                       

                                                                beginreadln(a); if a< min then min: =a;                                                             end; writeln(min);

readkey;

end.

 

3)

program m; uses crt; var i,a,b,c,min,d: integer; beginclrscr; readln(a,b,c); if a< b then b: =a; if c< a then b: =c; writeln(b); readkey; end.

сумма=18

семерки нету

или тебе программу написать?

 

 

var

  i,n,a: integer;

begin

  readln(n);

for i: =1 to n do

begin

  read(a);

if (a mod 3=0)and(a mod 5> 0) then write(a,' ');

end;

writeln;

end.