1. посчитать сумму первых 10-ти четных чисел. 2. мальчик в первый день учит 5 слов, а в последующий на 2 слова больше, чем в предыдущий. сколько слов будет знать мальчик через 10 дней. (на паскале)
1) var i, s, c: integer; begin s := 0; i := 1; c := 0; while c < 10 do begin if(i mod 2 = 0) then begin c := c + 1; s := s + i; end; i := i + 1; end; write(s); end.
2) var i, s, k: integer; begin s := 0; k := 5; for i := 1 to 10 do begin s := s + k; k := k + 2; end; write(s); end.
{Из массива Р, содержащего 10 элементов, сформировать массив Н по правилу:Н(к)=I/P(к), (к -чётные), Н(к)=Р(к)+к, (к - нечётные)В массиве, содержащем 10 элементов, нечётным элементам присвоить значения квадратов их индексов.В массиве, содержащем 10 элементов, напечатать индекс последнего из элементов, равных 0.}var P:array[1..10] of integer; H:array[1..10] of real;i:integer;index1, index2:integer; begin
writeln('Введите элементы массива P: '); for i:=1 to 10 do begin readln(P[i]); end; writeln; writeln('Массив P: '); for i:=1 to 10 do begin write(' '+P[i]+' '); end; writeln; writeln('Массив H: '); for i:=1 to 10 do begin if (i mod 2 = 0) then begin H[i]:=1/P[i]; end; if (i mod 2 <> 0) then begin H[i]:=P[i]+i; end; end; for i:=1 to 10 do begin write(' '+H[i]+' '); end; writeln; writeln; writeln('Нечётным элементам присваиваем значения квадратов их индексов'); for i:=1 to 10 do begin if (i mod 2 <> 0) then P[i]:=i*i; end; for i:=1 to 10 do begin if (i mod 2 <> 0) then H[i]:=i*i; end; writeln('Массив P: '); for i:=1 to 10 do begin write(' '+P[i]+' '); end; writeln; writeln('Массив H: '); for i:=1 to 10 do begin write(' '+H[i]+' '); end; writeln; writeln; writeln('Напечатать индекс последнего из элементов, равных 0'); for i:=1 to 10 do begin if (P[i] = 0) then index1:=i; end; writeln; writeln('Индекс для массива P: '+index1); for i:=1 to 10 do begin if (H[i] = 0) then index2:=i; end; writeln; writeln('Индекс для массива H: '+index2); end.
Прочитав текст, можно легко понять, что проще всего "зацепиться" за его фрагмент "я учился на 12 и 11". Кроме того, нигде не встречается цифр, больших двойки, следовательно основание системы р может быть 3 и более. Допустим, что система оценок была пятибалльной. Пусть p=3, тогда 12(3)=3+2=5, 11(3)=4 и это похоже на реальные числа. При р=4 получаем 12(4)=6 и это уже нарушает наше допущение о пятибалльной системе. Но посмотрим, что даст предположение р=3. 12(3) лет - это 5. 122 года - это 3²+2×3+2 = 17 лет - нормальный возраст для поступления в вуз. 21(3) год - это 3×2+1 = 7 лет - вполне допустимый срок для начала преподавания. 220(3) лет = 2×3²+2×3 = 24 года - путешествие было не коротким... 10011(3) лет = 3⁴+3+1 = 85 лет - вполне почтенный возраст.
var i, s, c: integer;
begin
s := 0;
i := 1;
c := 0;
while c < 10 do
begin
if(i mod 2 = 0) then
begin
c := c + 1;
s := s + i;
end;
i := i + 1;
end;
write(s);
end.
2)
var i, s, k: integer;
begin
s := 0;
k := 5;
for i := 1 to 10 do
begin
s := s + k;
k := k + 2;
end;
write(s);
end.