Var i,n: integer;
begin
n:=1;
for i:=1 to n do begin
n:=n*i;
end;
writeln (n);
end.
#include <iostream>
int main (){ int a, max = -33000, count; do { std::cin>>a; if (a == max) count++; if (a > max) { max = a; count = 1; } } while (a!=0); std::cout<<count;}
Простi та складнi.
Просте - на вулицi йде снiг
Складне - якщо на вулицi йде снiг, то на вулицi холодно
Ответ:
#include <iostream>
using namespace std;
int main()
{
unsigned long p, pp;
int F, n, i;
setlocale(LC_ALL, "russian");
cout << "Население = ";
cin >> p;
cout << "Прирост = ";
cin >> F;
cout << "n = ";
cin >> n;
i = 0;
pp = p;
while (pp < p * n) {
pp += (int) pp / F;
i++;
}
cout << "\nЧерез " << i << " лет";
}
1. Природные ресурсы бывают исчерпаемыми и неисчерпаемыми
2. Продукты питания -животного и растительного происхождения
3. Олимпийские виды спорта - зимние и летние
4. Автомобили - современные и несовременные
5. Самолеты грузовые и пассажирские
6. Мобильные телефоны кнопочные и сенсорные