bb495
?>

Составить блок-схему алгоритма вычисления суммы всех двузначных чисел.

Информатика

Ответы

parolmm
Х - число
У - сумма чисел
Составить блок-схему алгоритма вычисления суммы всех двузначных чисел.
YuRII1236
1.
var x,y:integer;
begin
write('x = ');
readln(x);
if x>0 
 then y:=1
 else if x=0 then y:=0 else y:=-1;
writeln('y = ',y);
end.

Пример:
x = -5
y = -1

2.
var a,b,c,x1,x2,d:real;
begin
writeln('Введите a, b, c:');
readln(a,b,c);
d:=b*b-4*a*c;
if d>0
 then begin
      x1:=(-b+sqrt(d))/(2*a);
      x2:=(-b-sqrt(d))/(2*a);
      writeln('x1 = ',x1,' x2 = ',x2);
      end
  else if d=0 then begin
                   x1:=-b/(2*a);
                   writeln('x = ',x1);
                   end
               else writeln('Корней нет');
end. 

Пример:
Введите a, b, c:
2 5 -3
x1 = 0.5 x2 = -3

3.
var a,b,c:real;
begin
writeln('Введите a, b, c:');
readln(a,b,c);
if (a<=b)and(b<=c)
 then begin
      b:=a; c:=a;
      end
 else begin
      a:=-a; b:=-b; c:=-c; 
      end;
writeln('a = ',a,' b = ',b,' c = ',c);
end. 

Пример 1:
Введите a, b, c:
2 5 9
a = 2 b = 2 c = 2

Пример 2:
Введите a, b, c:
2 9 5
a = -2 b = -9 c = -5
Daletskaya Sergei1121
С++
#include <iostream>
#include <ctime>
using namespace std;
int main ()
{
setlocale (0,"russian");
srand (time(NULL));
int N;
cout << "Чётное N=";
cin >> N;
if (N%2==0 && N>0)
{
int *arr=new int [N];
cout << "Случайный массив: ";
for (int i=0;i<N;i++)
{
arr[i]=rand()%200-100;
cout << arr[i] << ' ';
}
cout << endl << "Итог: ";
for (int x=N/2-1;x>=0;x--)
cout << arr[x] << ' ';
for (int y=N-1;y>=N/2;y--)
cout << arr [y] << ' ';
}
else
cout << "Ошибка!";
system ("PAUSE>>VOID");
return 0;
}

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Составить блок-схему алгоритма вычисления суммы всех двузначных чисел.
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

demon8608
Galliardt Sergeevna1284
bereza81
Kalmikova1666
lor005148
kuharhuks
avto3132
info6
kazanoop
Смирнов_Андрей691
Nikolaevich_Vladimirovich1509
barg562
maksmi
Ladyby6224
zerckaln