Ответ:
program Purchase;
var
ik, it: Integer;
ck, ct: Double;
begin
Write ('Количество карандашей и стоимость: ');
ReadLn (ik, ck);
Write ('Количество тетрадей и стоимость: ');
ReadLn (it, ct);
WriteLn ('Всего: ', ik * ck + it * ct :10 :2);
ReadLn;
end.
<span>uses crt;
const s='Софокл';
var n,m,i,j,cf,ct:integer;
begin
randomize;
n:=25;
m:=(80)div n;
for i:=1 to n do
begin
gotoXY(m*(i-1),i);
cf:=random(9)+8;//от голубого до желтого
ct:=random(9);//от синего до серого
textbackground(cf);
textcolor(ct);
write(s);
end;
end. попробуй это </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>
1. Программа суммирует числа от 1 до 10, следовательно в ответе будет сумма: 1 + 2 + 3 + 4 + 5 + 6 + 7 + 8 + 9 + 10 = 55.
1.1.
<em>var k,s:integer;</em>
<em>begin</em>
<em>s:=0;</em>
<em>k:=1;</em>
<em>repeat
</em>
<em>s:=s+k;</em>
<em>k:=K+1;</em>
<em>until k >10;
</em>
<em>write(s);</em>
<em>end.</em>
<em>2. в первом цикле
</em>
for n:=1 to 100 do
A[n]:=n-10;
<em>вычисляются элементы массива А по формуле</em> A[n]:=n-10<em>, первые 10 из них будут отрицательные.
</em>
во втором цикле
for n:=1 to 100 do
B[n]:=A[n]*n;
<em>вычисляются элементы массива В по формуле </em>B[n]:=A[n]*n, а т.к. первые 10 элементов массива А отрицательные числа, то и 10 первых элементов массива В будут отрицательными, а т.к. в массиве В 100 элементов, то положительных будет 90.
<em>
</em>
2) a: array[5..19] of integer т.к. сюда входят все числа от 5 до 19, включая границы