<span>var s,s1:string; n,i:integer;
begin
writeln('Введите слово длиной 3n:');
readln(s);
n:=length(s) div 3;
delete(s,2*n+1,n);
s1:='';
for i:=1 to 2*n do s1:=s[i]+s1;
writeln(s1);
end<span>.
Пример:
</span><span>Введите слово длиной 3n:
</span><span>programma
</span>argorp</span>
Допустим в январе 31 день. Предположим что осадки это целые числа и число 0 свидетельствует об отсутствии осадков.
Вот функция возвращающая дни без осадков
<span><span>C#Выделить код</span><span>1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
<span> private int[] NetOsadkov(ref int[]Pogoda)
{
int[] error = {-1};
int[] PogodaBezOsadkov = { 0 };
List<int> osadki = new List<int>();
int NetOsadkov = 0;
if (Pogoda.Length < 31)
{
return error;
}
for (int i = 0; i < Pogoda.Length;i++ )
{
if (Pogoda[i] == NetOsadkov)
{
osadki.Add(i+1);
}
}
PogodaBezOsadkov = osadki.ToArray();
return PogodaBezOsadkov;
}</span></span></span>Проверяем..
<span><span>C#Выделить код</span><span>1
2
3
4
5
6
7
8
<span> int[] JanuaryWeather = {123,4535,756,45,0,67,22,3453,765,35,456,35,0,35,45,76,6,567,35,6543,0,35,456,58,467,4657,458,48,0,67,745};
string result = string.Empty;
foreach (int val in NetOsadkov(ref JanuaryWeather))
{
result += val.ToString() + ',';
}
MessageBox.Show(result+" "+"Января была погода без осадков")<span>;</span></span></span></span>
Program name;
var a,b,s:real;
begin
a:=5;
b:=-3.5;
s:=a+b;
s:=2*s-b;
writeln(s);
end.
Ответ:
есть пара неясностей в условии. если допускается такое, что единица и само число тоже являются делителями, то берите первый вариант решения, иначе - берите второе.
и еще кое-что: если нужно хотя бы 4 делителя, то оставьте все как есть, а если нужно ровно четыре делителя, в строчке if k> =4 then write(i: 3); уберите знак > .
1 вариант.
program zadacha;
var n, i, j, k : byte;
begin
write('введите число n');
for i: = 1 to n do begin
k: =0;
for j: = 1 to i do
if i mod j =0 then k: =k+1;
if k> =4 then write(i: 3);
2 вариант.
program zadacha;
var n, i, j, k : byte;
begin
write('введите число n');
for i: = 1 to n do begin
k: =0;
for j: = 2 to (i-1) do
if i mod j =0 then k: =k+1;
if k> =4 then write(i: 3);
Да, в целом это расписание соответствует состоянию работоспособности школьников.
Улучшить: при высокой работоспособности ставить более сложные предметы, а при низкой — более легкие.
Например:
1) История
2) Математика
3) Русский язык
4) Информатика
5) Иностранный язык
6) Музыка