Заполните массив первыми N натуральными числами, начиная с X (значение X введите с клавиатуры). Например, заполнить массив 6 натуральными числами, начиная с 11.
// PascalABC.NET 3.1, сборка 1201 от 18.03.2016 begin var k:=0; var n:=ReadInteger(); var nmax:=0; while n<>0 do begin Inc(k); if n mod 10 = 0 then if n>nmax then nmax:=n; n:=ReadInteger() end; var cntrl:=ReadInteger(); Writeln('Получено ',k,' чисел'); Writeln('Полученное контрольное значение: ',cntrl); Writeln('Вычисленное контрольное значение: ',nmax); if cntrl=nmax then Writeln('Контроль пройден') else Writeln('Контроль не пройден') end.
3:
using System.IO;
using System;
namespace тылпыа
{
class Program
{
public static void Main(string[] args)
{
StreamReader reader = new StreamReader("input.txt");
StreamWriter writer = new StreamWriter("output.txt");
string input = " ";
while (true) {
input = reader.ReadLine();
if (input == null) {
break;
}
writer.WriteLine(input.Replace(", короче,", ", в общем,"));
}
writer.Close();
}
}
}