Дана программа для редактора: НАЧАЛО
ПОКА нашлось (111)
заменить (111, 22)
заменить (222, 11)
КОНЕЦ ПОКА
КОНЕЦ
Известно, что исходная строка содержала более 100 единиц и не содержала других цифр. Укажите минимально возможную длину исходной строки, при которой в результате работы этой программы получится строка, содержащая максимально возможное количество единиц.
using System;
namespace ConsoleApp1
{
class Program
{
static void Main(string[] args)
{
int matrixSize = 5;
int sum=0;
int[,] matrix = new int[matrixSize, matrixSize];
Random r = new Random();
for (int i = 0; i < matrixSize; i++)
for (int j = 0; j < matrixSize; j++)
{
matrix[i, j] = r.Next(5) - 2;
if (matrix[i, j] % 2 != 0) sum += matrix[i, j];
}
for (int i = 0; i < matrixSize; i++)
{
for (int j = 0; j < matrixSize; j++)
Console.Write(matrix[i,j]+" ");
Console.WriteLine();
}
Console.WriteLine("Сумма нечетных элементов матрицы равна " + sum);
}
}
}
Адекватная версия:
PascalABC.NET
begin
var expr := Readstring();
expr.Split(' ')[0].Println;
end.
Версия "Нас так учили"
var
expression: string;
s_index: byte;
begin
s_index := 1;
readln(expression);
while expression[s_index] <> ' ' do begin
write(expression[s_index]);
s_index := s_index + 1;
end;
end.
Объяснение:
Т.к по условию слово - последовательность непробельных символов, ограниченная пробелами или концами строки, то данная программа полностью игнорирует пунктуацию и считает любой символ частью того слова, с которым он не разделён пробелом.