Отличник и двоечник встретили учителя. «когда вы поставите нам зачет? » — спросил отличник у учителя. учитель ответил: «я вам не скажу, но несколько намёков». он написал на доске следующие даты:
15 декабря — 16 декабря — 19 декабря
17 января — 18 января
14 февраля — 16 февраля
14 марта — 15 марта — 17 марта
«одна из этих дат — день получения зачета», сказал он.
далее учитель по секрету сообщил отличнику месяц, в котором состоится зачет. двоечнику он также по секрету сообщил число.
«теперь ты можешь догадаться? » — спросил он у отличника.
отличник: я не знаю, когда у нас будет зачет, но я знаю, что двоечник тоже не знает.
двоечник: сначала я не знал, но теперь знаю.
отличник: что ж, теперь и я знаю!
когда ученики получат зачёт?
string a;
string b;
int count = 0;
int count2 = 0;
bool g = false;
bool g2 = false;
Console.WriteLine("Введите первую строку");
a = Convert.ToString(Console.ReadLine());
Console.WriteLine("Введите первую строку");
b = Convert.ToString(Console.ReadLine());
Console.WriteLine("Введите первый символ");
Макрой avatar
char first_symbol = Convert.ToChar(Console.ReadLine());
Console.WriteLine("Введите последний символ");
char second_symbol = Convert.ToChar(Console.ReadLine());
char[] separ = { ' ' };
string[] a1 = a.Split(separ);
string[] b1 = b.Split(separ);
Макрой avatar
for (int i = 0; i < a1.Length; i++)
if (a1[i].IndexOf(first_symbol) == 0 && a1[i].IndexOf(second_symbol) == a1[i].Length - 1)
{
Console.Write(a1[i]+";"); count++; g= true;
}
if (g)
{
Console.WriteLine(" В этой строке :" + count + " слов(о)");
}
Console.WriteLine();
Макрой avatar
for (int i = 0; i < b1.Length; i++)
if (b1[i].IndexOf(first_symbol) == 0 && b1[i].IndexOf(second_symbol) == b1[i].Length - 1)
{
Console.Write(b1[i]+";"); count2++; g2 = true;
}
if (g2)
{
Console.WriteLine(" В этой строке :" + count2 + " слов(о)");
}
Console.ReadLine();
Объяснение:
const
n=10;
var
a,b:array[1..n] of integer;
i,k,t:integer;
begin
ClrScr;
Randomize;
for i:=1 to n do begin
a[i]:=Random(50);
Write(a[i],' ')
end;
Writeln;
for i:=1 to n do begin
b[i]:=Random(50);
Write(b[i],' ')
end;
Writeln;
Write('k t='); Read(k,t);
for i:=1 to n do begin
if a[i]>t then a[i]:=a[i]+4;
Write(a[i],' ')
end;
Writeln;
for i:=1 to n do begin
if b[i]>10*k then b[i]:=b[i]+k;
Write(b[i],' ')
end;
Readkey
end.
Тестовое решение:
1 6 23 12 47 1 44 24 6 18
31 30 30 29 0 3 43 32 46 21
k t=2 20
1 6 27 12 51 1 48 28 6 18
33 32 32 31 0 3 45 34 48 23