Question

Найти сумму положительных нечетных чисел, меньших 100. (программа паскаля скорее всего)

Answer 1

var i,sum:integer;

begin

sum:=0;

for i:=1 to 100 do

if i mod 2 = 1 then sum:=sum+i;

writelnI(sum);

end.

Вопросы в ЛС

Answer 2

// PascalABC.NET 3.1, сборка 1171 от 15.02.2016
begin
  Println(Range(1,99).Where(n->(Odd(n) and (n mod 3<>0))).Sum)
end.

Результат выполнения программы:
1633

Answer 3

//Pascal
//1)
var N, mult: longint;
begin
  mult := 1;
  write('Введите конечное число: '); readln(N);
  repeat
    write(mult, ' ');
    mult := mult * 5;
  until (mult > N);
readln;
end.

//2)
var
  i: byte;
  sum: integer;
begin
sum := 0;
  for i := 1 to 49 do
    if i mod 2 <> 0 then sum := sum + i;
writeln('Sum = ', sum); readln;   
end.

Answer 4

//PascalABC.NET 3.3
begin 
Range(1, ReadInteger('n->') - 1, 2).Sum.Println;
end.

// Pascal
var n,i,s:integer;
begin
Write('n->');
readln(n);
i:=1;
while i<n do begin s:=s+i; inc(i,2); end;
Writeln(s);
end.

Answer 5

program gg;

uses crt;

var

  a:array[1..10] of integer;

  sum,i:integer;

begin

clrscr;

 writeln('vvedite 4isla');

 for i:=1 to 10 do

 readln(a[i]);

 for i:=1 to 10 do

 if (a[i]>0) and (a[i] mod 2 <>0) and (a[i]<100)

 then begin

      sum:=sum+a[i];

      end;

 writeln('summa: ',sum);

 readln;

 end.

Объяснение:

Answer 6

var

 a           : array [1..1000] of longint;

 i,n,sum : longint;

begin

   Read(n);

   for i:=1 to n do Read(a[i]);

   sum:=0;

   for i:= 1 to n do

     if (a[i] mod 2 = 0) and (a[i]<50)

       then sum:=sum+a[I];

    Writeln(sum);

end.

Answer 7

var i,sum:integer;

begin

sum:=0;

for i:=1 to 100 do

if i mod 2 = 1 then sum:=sum+i;

writelnI(sum);

end.

Answer 8

ответ:придурки

Объяснение:

Answer 9

Program abc;
Var a,s:integer;
begin a:=1;
while a<100 do
begin
s:=s+a;
a:=a+2;
end;
writeln('Сумма чисел ',s);
readln;
end.

Answer 10

Var a,b,c: integer;begin 
  a:=1; 
 while a<100 do 
  begin
   c:=c+a;
   a:=a+1;
   end; 
  writeln(c);
end.

Answer 11

Var
i, s: integer;
begin
s:=0;
for i:=1 to 99 do
if (i mod 2 <> 0) and (i mod 3 <> 0) then
inc(s, i);
writeln(s);
end.

Answer 12

Обозначаем переменные S -сумма, k-элемент
Обнуляем S:=0,  k:=0
Вводим цикл с условием  k∠100
Проверяем на нечетность
Если остаток от деления на 2 неравен 0, то S:=S+k
Выводим на экран.
Конец
 

Answer 13

Реализация на с++

Уровень А
#include<iostream.h>

using namespace std;

int main(){
  int a,b;
  cin >>a >> b;
  double s = 0.5 * a * b;
  cout << s << endl;
  return 0;
}
Уровень B
#include<iostream.h>

using namespace std;

int main(){
  int n;
  cin >> n;
  (n%3==0) ? n*2 : n+n%3;
  cout << n << endl;
  return 0;
}
Уровень C
#include<iostream.h>

using namespace std;

int main(){
  int summa = 0;
  for(int i = 1; i < 100; i+=2){
     summa += i;
  }
  cout << summa << endl;
  return 0;
}

Answer 14

Судя по всему, это арифметическая прогрессия.
$a_{1} =1$
$a_{n} =99$
n=100:2=50 - поскольку четные и нечетные числа идут по очереди, значит нечетных чисел - ровно половина.
$S_{n} = \frac{ a_{1}+ a_{n} }{2}n$
$S_{50} = \frac{ 1+ 99}{2}50=50*50=2500$

ответ: 2500

Можно, конечно, и "в лоб" посчитать: 1+3+5+7+...+97+99=2500.