Дано два кола із загальним центром і радіусами r1 і r2 (r1> r2). знайти площі цих кіл s1 і s2, а також площа s3 кільця, зовнішній радіус якого дорівнює r1, а внутрішній радіус дорівнює r2:
s1 = π·(r1)2, s2 = π·(r2)2, s3 = s1 − s2.
что нужно сделать:
1. розпішіть етапи комп’ютерного моделювання цієї і.
2. виконайте комп’ютерне моделювання цієї і в табличному процесорі.
3. збережіть електрону книгу в файлі з ім'ям проект.
program Task;
var N,i,kol,sum:integer; //По-хорошему, не integer. Потому что мы работаем с натуральными числами, а не отрицательными
begin
read(N);
for i:=1 to N do
begin
if (i mod 15)=0 then kol:=kol+1; //15 - это НОК(3,5)
end;
while (N<>0) do
begin
sum:=sum+N mod 10;
N:=N div 10;
end;
writeln('Количество чисел, делящихся и на 3, и на 5, равно ',kol);
writeln('Сумма цифр числа N равна', sum);
end.
Пиши, если что-то не работает или не понятно :)
АХТУНГ!
Произведение может вылетать за лимиты Long Long.
Ведь лимит лонг лонг вправо есть 9 223 372 036 854 775 807
И если увеличить количество чисел в массиве, допустим, до 100, то в теории может выйти 100^100 и это невесело.
#define COUNT 10
#define LIMIT 100
#include <iostream>
#include <ctime>
#include <random>
using namespace std;
int main() {
srand(time(NULL));
int a [COUNT];
long long result = 1;
for (int i = 0; i < COUNT; ++i)
a[i] = rand()%(LIMIT-0+1) + 0;
for (int i = 0; i < COUNT; ++i)
if (a[i] % 6 != 0 && a[i] > 9 && a[i] < 100 && a[i] != 0)
result *= a[i];
cout << "Massive: ";
for (int i = 0; i < COUNT; ++i)
cout << a[i] << " ";
cout << endl << "RESULT: " << result;
}