Если на паскале, то
var
x: integer;
y: real;
begin
readln(x);
if x < 0 then
y := x*x+5*x
else
y := sqrt(x+6);
writeln(y);
<span>end.
Если в виде блок-схемы, то прикрепил картинку</span>
Program month;
uses CRT;
var a:integer;
Begin
ClrScr;
write('vsatvte chislo');
read(a);
If (a=12) or (a=1) or (a=2) then write('zima')
else if (a=3) or (a=4) or (a=5) then write ('vesna')
else if (a=6) or (a=7) or (a=8) then write ('leto')
else write('oseni');
repeat until keypressed;
end.
1) Байкал - озеро
2) Петербург - город
3) Индия - страна
4) хлопоты - глагол
5) дебри - они в тундре
6) мозоль - он не красный
7) лазурь - заканчивается на "рь"
I, k, m, min, max:integer;
a, b:array[1..30000] of integer;
begin
readln(n);
for i:=1 to n do
readln(a[i]);
max:=a[1];
for i:=1 to n do
if min>a[i] then min:=a[i];
k:=1;
for i:=1 to n do
if ((a[i] mod 2)=0) then begin b[k]:=a[i]; k:=k+1; end;
max:=b[1];
for i:=1 to k do
if max>b[i] then max:=b[i];
writeln(min, ' ', max);
readln;
end.
Ответ:
в качестве аргумента sep в метод print передаётся строка/символ, который служит разделителем в выходной строке между выводимыми на экран значениями. sep сокр. Separator - разделитель. В данном случае в качестве символа-разделителя передаётся пробел
Объяснение: