Dкрасивый заголовок в один приятный вечер артем решил написать , но он никак не мог придумать заголовок к . артем считает заголовок красивым, если он состоит из одного слова и его длина является простым числом (простое число – число, которое делится только на себя и на единицу артем написал предварительный заголовок. он хочет удалить из него минимальное количество символов справа, чтобы получить красивый заголовок. ему это сделать. формат входных данных единственная строка входного файла содержит предварительный заголовок s. строка s состоит только из прописных букв алфавита и ее длина не меньше 2 и не больше 100 000. формат выходных данных выведите красивый заголовок, который получается удалением из строки минимального количество букв cправа. составить программу

Вот это совпадение на тебе

Program MashaLukianova;
uses crt;
const n=12;
var
  mas:array[1..n] of integer;
  b,i,left,right,temp:integer;
begin
  writeln('*** alphaues is thinking... ***');
  writeln('***          OK             ***');
  writeln();
  write('Введите загадочное число B ');
  readln(b);
  writeln('Элементы массива:');
  {создание и вывод начального массива}
  randomize;
    for i:=1 to n do
      begin
        mas[i]:=random(100)-50;
        write (mas[i]:4);
      end;
  writeln();
  left:=0;
  right:=n;
  while left <> right do         {просматриваем массив с концов к середине, пока "левый" и "правый" текущие элементы не встретятся}
    begin
      if mas[left+1]<=b then

        {если текущий "левый" элемент меньше или равно В, то просто идём смотреть следующий }
        begin
          left:=left+1;
        end
        else
          if mas[right]>=b then
        {если текущий "правый" элемент больше или равно В, то просто идём смотреть следующий }

            begin
              right:=right-1;
            end
          else

        {иначе меняем "левый" и "правый" местами}
            begin
              temp:= mas[left+1];
              mas[left+1]:=mas[right];
              mas[right]:=temp;
              left:=left+1;
              right:=right-1;
            end;
    end;
  writeln();
  {вывод массива-результата}
  for i:=1 to n do
      begin
        write (mas[i]:4);
      end;
  writeln();
end.

Смотря для какого тебе языка надо, вот для VisualBasic

 

Sub Neskolko_Chisel

 

Dim Sum, i, a, N As Integer

 

N = InputBox("Введите количество чисел")

 

For i = 1 to N

a = InputBox("Введите число")

Sum = Sum + a

Next i

 

End Sub

 

 

вот для с++

 

#include <iostream>
#include <conio.h>
using namespace std;

int main()
{
setlocale(LC_ALL, "Russian");

int a, N, Sum, i;
Sum = 0;
N = 0;
a= 0;
cout << "Введите количество чисел! ";
cin >> N;

for (i = 1; i <= N; i++)
{
cout << "Введите число!" ;
cin >> a;
Sum = Sum + a;
}
cout << Sum;

_getch();
}