Если на паскале, то
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>
Var a: array[1..6] of integer;
i, k, d, v, n: integer;
begin
for i:=1 to 6 do
begin
write('Введите элемент массива под номером ', i, ' = ');
readln(a[i]);
end;
k:=0;
d:=0;
v:=0;
n:=6;
for i:=1 to n do
if a[i]=0 then
k:=k+1
else
if a[i]>0 then
d:=d+1
else
if a[i]<0 then
v:=v+1;
writeln('Количество нулевых = ', k);
writeln('Количество положительных = ', d);
writeln('Количество отрицательных = ', v);
end.
№1
#include <iostream>
using namespace std;
int main(){
int a, b;
cin>>a>>b;
for (int i=a; i<=b; ++i) if (i%3==0) cout<<i<<" ";
}
№2
#include <iostream>
using namespace std;
int main(){
int a, b, s=0;
cin>>a>>b;
for (int i=a; i<=b; ++i) if (i%2==1) s+=i;
cout<<s;
}
№3
#include <iostream>
using namespace std;
int main(){
for (int i=10; i<=20; ++i) cout<<i*i<<" ";
}
Cначала спускаемся на а(6) потом на. б(6) потом на б(8)