Бейсик

Python

DIM N, S AS INTEGER

N = 1

S = 0

WHILE N <= 1000

  S = S + 40

  N = N * 2

WEND

PRINT S

n = 1

s = 0

while n <= 1000:

    s = s + 40

    n = n * 2

print(s)

Алгоритмический язык

Паскаль

алг

нач

  цел n, s

  n := 1

  s := 0

  нц пока n <= 1000

    s := s + 40

    n := n * 2

  кц

  вывод s

кон

var n, s: integer;

begin

  n := 1;

  s := 0;

  while n <= 1000 do

  begin

    s := s + 40;

    n := n * 2

  end;

  write(s)

end.

Си

#include<stdio.h>

int main()

{

  int n, s;

  n = 1;

  s = 0;

  while (n <= 1000)

  {

    s = s + 40;

    n = n * 2;

  }

  printf("%d", s);

  return 0;

}