Название устройства оусущ. Связь меж компьютерами
Using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using System.Threading.Tasks;
using System.IO;
namespace СиШарп
{
class Program
{
static void Main(string[] args)
{
int[] A = File.ReadAllText("D:\\f.txt").Split().Select(x=>int.Parse(x)).ToArray();
// for(int i = 0; i < A.Length; i++)
// Console.Write("{0} ",A[i]);
using (StreamWriter g = File.CreateText("D:\\g.txt"))
{
Console.WriteLine("\n{0}", "Введите номер задания (0 - а, 1 - б)");
int C = int.Parse(Console.ReadLine());
C = 5 + C * 5;
int i = 0;
while (i < A.Length)
{
for (int j = i; j < i + C; j++)
g.Write("{0} ",A[j]);
i += C*2;
for (int j = i; j < i + C; j++)
g.Write("{0} ", A[j]);
i -= C;
for (int j = i; j < i + C; j++)
g.Write("{0} ", A[j]);
i += C*2;
for (int j = i; j < i + C; j++)
g.Write("{0} ", A[j]);
i += C;
}
}
Console.ReadKey();
}
}
}
Program ex16;
var
a,b,x,z,alpha:real;
begin
Write('a,b=');
Read(a,b);
x:=(a+b)/2;
z:=(1+x)/(1+(1+x)/x);
alpha:=a*x*x-cos(b*x)+z/2;
Writeln('x=',x,' z=',z,' alpha=',alpha)
end.
Контрольное решение
Turbo Pascal Version 7.0 Copyright (c) 1983,92 Borland International
a,b=0.58 -2.4
x=-9.1000000000E-01 z= 9.9878048780E-02 alpha= 1.1057274246E+00
1шаг алгоритма.
а) <span>записывается исходная цепочка символов, после нее записывается исходная цепочка символов в обратном порядке
КОМ+МОК = КОММОК
б) </span><span>затем записывается буква, следующая в русском алфавите за той буквой, которая в исходной цепочке стояла на последнем месте
(за буквой М в русском алфавите следует буква Н)
КОММОК+Н = </span>КОММОКН<span>
2 шаг алгоритма.
</span>а) записывается исходная цепочка символов, после нее записывается исходная цепочка символов в обратном порядке
КОММОКН+НКОММОК = КОММОКННКОММОК
б) затем записывается буква, следующая в русском алфавите за той буквой, которая в исходной цепочке стояла на последнем месте
(за буквой Н в русском алфавите следует буква О)
КОММОКННКОММОК+О = КОММОКННКОММОКО
Ответ: количество букв О в полученной последовательности = 5
