1) Паскаль
2) Макет и карта
3) <span>Упрощённое подобие этого объекта, которое воспроизводит его форму и размеры в нужном масштабе</span>
#include <iostream>
int main()
{
setlocale (LC_ALL,"Russian");
int size;
std::cout <<"Введите кол-во эл. в массиве\n";
std::cin >> size;
int *a = new int[size], *b = new int[size];
std::cout <<"Введите эл. массива A\n";
for (int i=0; i<size; i++)
{
std::cout <<(i+1) <<") ";
std::cin >> a[i];
}
std::cout <<"Введите эл. массива B\n";
for (int i=0; i<size; i++)
{
std::cout <<(i+1) <<") ";
std::cin >> b[i];
}
std::cout <<"Сумма эл. массива\n";
for (int i=0; i<size; i++)
std::cout <<(i+1) <<") " <<a[i]+b[i] <<std::endl;
delete [] a;
delete [] b;
return 0;
}
<span> // 1 гриб</span><span>
// 2-4 гриба</span><span>
// 5-10 грибов</span><span>
// 11-20 грибов исключение</span><span>
// 21 гриб</span><span>
// 22-24 гриба</span><span>
// 25-30 грибов</span><span>
// 31 гриб</span><span>
// 32-34 гриба</span><span>
// 35-40 грибов</span><span>
// 41 гриб</span><span>
// 42-44 гриба</span><span>
// 45-50 грибов</span><span>
// 51 гриб
как видим из вышеизложенного, мы должны только запрограммировать окончание первого десятка и исключение 11-20, которое будет портить нам малину, т.к. там одно окончание будет.
А остальное берем целочисленный остаток от деления на 10, и добавляем нужное окончание.</span><span />
===== PascalABC.NET =====
begin
var k := ReadInteger; // ввод k
if k > 2 then // анализ аномалии
begin
var (x1, x2, i) := (1, 1, 2);
var x: integer;
while i < k do
begin
x := x1 + x2;
x1 := x2;
x2 := x;
i += 1
end;
Print(x)
end
else
Print('Ошибка')
end.
Для химии можна нарисовать колбу с чем то
Информатика:компютер
Исторія: книга с пером
Спорт зал спортивное оборудование