<u><em>3 задача</em></u>
конфеты - 7 кг
печенья - в 2 раза <u>б</u>. конфет (7*2=14)
пряники - на 4 кг меньше, чем конфет и печений вместе.
Решение.
Печений будет 14 (7*2)
Пряников = 14 + 7 - 4 = 17 кг
Всего пряностей = 14 + 7 + 17 = 38 кг
Ответ: 38 кг пряностей всего.
Всего - ?
<u><em>4 задача</em></u>
1 девочка - 8 грибов
2 девочка - на 1 меньше (8-1=7)
3 девочка - ?
Всего грибов 20.
Решение.
<u>1 девочка</u> нашла 8 грибов (по условию).
Значит, <u>вторая девочка</u> нашла 8 - 1 (на 1 меньше) = 7 (грибов)
<u>3 девочка</u> собрала оставшиеся грибы 20 - (7+8) = 20 - 15 = 5 (грибов)
Ответ: Третья девочка нашла 5 грибов.
10. Так как все остальные числа простые, а это составное
В паскале абц есть встроенная справка: помощь->справка->стандартные модули->graphabc, вроде так, там описаны все процедуры с функциями для работы с графикой, более чем исчерпывающая информация
// PascalABC.NET 3.1, сборка 1204 от 24.03.2016
function IsHamming(n:integer):boolean;
begin
while n mod 2 = 0 do n:=n div 2;
while n mod 3 = 0 do n:=n div 3;
while n mod 5 = 0 do n:=n div 5;
Result:=(n=1)
end;
begin
var n:=ReadInteger('n=');
var s:int64:=0;
var k:=0;
var i:=2;
while k<>n do begin
if IsHamming(i) then begin
Inc(k); s+=i; Print(i)
end;
Inc(i)
end;
Writeln(NewLine,'Сумма элементов последовательности равна ',s);
n:=ReadInteger('Найти элемент с номером');
i:=2; k:=0;
while k<>n do begin
if IsHamming(i) then Inc(k);
Inc(i)
end;
Writeln('Найденное значение: ',i-1)
end.
<u><em>Тестовое решение:</em></u>
n= 33
2 3 4 5 6 8 9 10 12 15 16 18 20 24 25 27 30 32 36 40 45 48 50 54 60 64 72 75 80 81 90 96 100
Сумма элементов последовательности равна 1257
Найти элемент с номером 1000
Найденное значение: 51840000
#include <iostream>
#include <conio.h>
using namespace std;
int main()
{
setlocale(LC_ALL,"Russian");
const int N=7;
int A[N];
cout << "Введите массив, состоящий из " << N << " элементов:\n";
for (int i=0; i<N; i++)
cin >> A[i];
cout << "Массив до - ";
for (int i=0; i<N; i++)
{
cout << A[i] << " ";
if (A[i]*A[i] < 25) A[i] *= 2;
}
cout << "\nМассив после - ";
for (int i=0; i<N; i++)
cout << A[i] << " ";
_getch();
return 0;
}
Microsft Visual C++ 2010
