int main () { SetConsoleOutputCP(1251); cout<<"Введите три числа"<<endl; int a,b,c; cin>>a>>b>>c; if ( (a<0) && (b<0) && (c<0)) { cout<<"неотрицательных чисел нет"<<endl; system("pause"); return 0; // дальше не выполняем, чтобы не тратить силы впустую } if (a>0) cout<<a*a<<endl; if (b>0) cout<<b*b<<endl; if (c>0) cout<<c*c<<endl; system("pause"); return 0; }
Program A_1; uses crt; Var i,n,sum: integer; begin write('Введите N '); readln(n); i:=0; sum:=0; repeat i:=i+1; sum:=sum+i; until i=n; writeln('Сумма чисел от 1 до ',n,' равна ',sum); end.
Program B_2; uses crt; Var i,n,sum: integer; begin write('Введите N '); readln(n); i:=0; sum:=0; repeat i:=i+1; sum:=sum+i*i; until i=n; writeln('Сумма квадратов чисел от 1 до ',n,' равна ',sum); end.
Program V_3; uses crt; Var i,n,sum: integer; begin write('Введите N '); readln(n); i:=0; sum:=0; repeat i:=i+1; if (i mod 2 = 0) then sum:=sum+i; until i=n; writeln('Сумма чётных чисел в диапазоне от 1 до ',n,' равна ',sum); end.
Program G_4; uses crt; Var i,n,sum: integer; begin i:=9; sum:=0; repeat i:=i+1; sum:=sum+i; until i=99; writeln('Сумма всех двузначных чисел равна ',sum); end.
int main ()
{
SetConsoleOutputCP(1251);
cout<<"Введите три числа"<<endl;
int a,b,c;
cin>>a>>b>>c;
if ( (a<0) && (b<0) && (c<0))
{
cout<<"неотрицательных чисел нет"<<endl;
system("pause");
return 0; // дальше не выполняем, чтобы не тратить силы впустую
}
if (a>0)
cout<<a*a<<endl;
if (b>0)
cout<<b*b<<endl;
if (c>0)
cout<<c*c<<endl;
system("pause");
return 0;
}
uses crt;
Var
i,n,sum: integer;
begin
write('Введите N ');
readln(n);
i:=0;
sum:=0;
repeat
i:=i+1;
sum:=sum+i;
until i=n;
writeln('Сумма чисел от 1 до ',n,' равна ',sum);
end.
Program B_2;
uses crt;
Var
i,n,sum: integer;
begin
write('Введите N ');
readln(n);
i:=0;
sum:=0;
repeat
i:=i+1;
sum:=sum+i*i;
until i=n;
writeln('Сумма квадратов чисел от 1 до ',n,' равна ',sum);
end.
Program V_3;
uses crt;
Var
i,n,sum: integer;
begin
write('Введите N ');
readln(n);
i:=0;
sum:=0;
repeat
i:=i+1;
if (i mod 2 = 0) then sum:=sum+i;
until i=n;
writeln('Сумма чётных чисел в диапазоне от 1 до ',n,' равна ',sum);
end.
Program G_4;
uses crt;
Var
i,n,sum: integer;
begin
i:=9;
sum:=0;
repeat
i:=i+1;
sum:=sum+i;
until i=99;
writeln('Сумма всех двузначных чисел равна ',sum);
end.