Умоляю решается судьба атестата напишите решение , решите : арифметический цикл for 1. остров манхэттен (район нью-йорка) был выкуплен индейцев переселенцами из в 1626 г. всего за 24 $. каково было бы в настоящее время состояние их счета, если бы эти деньги были помещены тогда в банк под 7% годового дохода? 2. напишите программу, чтобы получить перевертыш целого четырехзначного числа n, введенного пользователем (вспомните, как разбить число на разряды с операций div и mod)? итерационный цикл repeat 1. через сколько дней в зоне заражения уровень радиации упадет до безопасного значения 30 микрорентген в час, если начальное значение уровня заражения z и каждый день оно уменьшается на 5% по отношению к предыдущему дню. для проверки: 700 = 62 дня 19500 = 127 дней итерационный цикл while 1. напишите программу, чтобы определить, сколько лет нужно хранить к долларов в банке под р % годовых, чтобы стать миллионером? 2. на склад привозят однородный груз на машинах различной грузоподъемности. пользователь вводит информацию о весе груза очередной машины. составить программу подсчета количества машин, прибывших на склад до его заполнения, если вместимость склада не более 100 тонн.
Ответы
Думаю, логика у нас здесь будет такая: нужно разложить данные три числа на простые сомножители. Получится:
132 = 2 * 2 * 3 * 11
106 = 2 * 53
134 = 2 * 67
Что у них есть общего - то можно откинуть, потому что количество кругов будет при общих сомножителях делиться без остатка. Собрать в ответ нужно следующее:
от первого - 2 * 2 * 3 * 11
от второго - 53 (двойку не берём, потому что она уже взята с первым)
от третьего - 67 (двойку опять не берём)
Получается: 2 * 2 * 3 * 11 * 53 * 67 = 468732 секунды. Это, как я думаю, ответ.
При этом (чисто для сведения), до момента встречи:
первый намотает 3551 круг
второй - 4422 круга
третий - 3498 кругов.
132 = 2 * 2 * 3 * 11
106 = 2 * 53
134 = 2 * 67
Что у них есть общего - то можно откинуть, потому что количество кругов будет при общих сомножителях делиться без остатка. Собрать в ответ нужно следующее:
от первого - 2 * 2 * 3 * 11
от второго - 53 (двойку не берём, потому что она уже взята с первым)
от третьего - 67 (двойку опять не берём)
Получается: 2 * 2 * 3 * 11 * 53 * 67 = 468732 секунды. Это, как я думаю, ответ.
При этом (чисто для сведения), до момента встречи:
первый намотает 3551 круг
второй - 4422 круга
третий - 3498 кругов.
/*
C++ compiler
gcc (Ubuntu 5.2.1-22ubuntu2) 5.2.1 20151010
Copyright (C) 2015 Free Software Foundation, Inc.
*/
#include <iostream>
#include <vector>
using namespace std;
int main()
{
int count = 0;
cout <<"Введите количество призывников: ";
cin >>count;
if (count>17) count=17;
vector<int> tanks(count);
for (unsigned i=0; i<tanks.size(); i++) cin >>tanks[i];
int min=300, max=0;
for (unsigned i=0; i<tanks.size(); i++)
{
if (min>tanks[i]) min=tanks[i];
if (max<tanks[i]) max=tanks[i];
}
int cnt=0;
for (unsigned i=0; i<tanks.size(); i++)
{
if ((tanks[i]!=min) and (tanks[i]!=max)) cnt++;
}
cout <<cnt <<endl;
}
C++ compiler
gcc (Ubuntu 5.2.1-22ubuntu2) 5.2.1 20151010
Copyright (C) 2015 Free Software Foundation, Inc.
*/
#include <iostream>
#include <vector>
using namespace std;
int main()
{
int count = 0;
cout <<"Введите количество призывников: ";
cin >>count;
if (count>17) count=17;
vector<int> tanks(count);
for (unsigned i=0; i<tanks.size(); i++) cin >>tanks[i];
int min=300, max=0;
for (unsigned i=0; i<tanks.size(); i++)
{
if (min>tanks[i]) min=tanks[i];
if (max<tanks[i]) max=tanks[i];
}
int cnt=0;
for (unsigned i=0; i<tanks.size(); i++)
{
if ((tanks[i]!=min) and (tanks[i]!=max)) cnt++;
}
cout <<cnt <<endl;
}
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
const god1=1626;
god2=2015; bank=0.07; var
summa:real;
begin
summa:=24;
for var i:=god1 to god2 do
summa:=summa+(summa*bank);
writeln(summa);
end.
//2.
var
a,b:integer;
begin
read(a);
b:=0;
for var i:=1 to length(inttostr(a)) do begin
b:=b*10+a mod 10; a:=a div 10;
end;
writeln(b);
end.
//3.
const s=0.05;
var
d:integer;
z:real;
begin
read(z);
d:=0;
repeat
inc(d);
z:=z-z*s;
until z<=30;
writeln(d);
end.
//4.
var
b,c:integer;
a:real;
begin
writeln('Кол-во $ и какой проц. годовых?');
readln(a,b);
c:=0;
while a<1000000 do begin
a:=a+a*(b/100);
inc(c);
end;
writeln(c);
end.
//5.
const max=100;var
a,b,c,d:integer;
begin
b:=0;
writeln('Кол-во машин?');
read(d);
writeln('Перечислите вес груза');
read(a);
c:=a;
for var i:=1 to d-1 do begin
read(a);
while c<=max do begin
inc(b);
c:=c+a;
end;
end;
writeln(b);
end.
//ABC Pascal