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.
Ответ дал: Гость
1)
s : = 0;
for i : = 1 to k do
begin
if i mod 2 < > 0 then
s: = s + i;
end;
2)
for i : = 5 to 55 do
begin
if i mod 2 < > 0 then
writeln(i);
end;
3)
s : = 1;
for i : = n to m do
begin
s: = s * i;
end;
4)
s : = 0;
for i : = 10 to 15 do
begin
s: = s + i;
end;
обрамления там везде одинаковые
Ответ дал: Гость
var i, n, a: integer; c1, c2, c3, c4: integer;
begin readln(n); for i : = 1 to n do begin readln(a); c1 : = a div 1000; c2 : = (a div 100) mod 10; c3 : = (a div 10) mod 10; c4 : = a mod 10; if (c1 < > c2) and (c1 < > c3) and (c1 < > c4) and (c2 < > c3) and (c2 < > c4) and (c3 < > c4) then writeln('цифры попарно различны') else writeln('не все цифры попарно различны'); end; end.
Популярные вопросы