// PascalABC.NET 3.1, сборка 1201 от 18.03.2016
begin
Writeln(ReadlnString('n=').Count(x->x='0'),' нулей');
end.
<u><em>Тестовое решение:</em></u>
n= 5350004533300045645600
8 нулей
Напишите код на языке Pascal
Сергей живёт на окраине города и поэтому, чтобы добраться до офиса, ему приходится каждый день проезжать n станций метро. Оказалось, что на каждую станцию метро тратится t1 минут. Но не так давно Сергей купил свою первую машину и теперь он тратит на дорогу гораздо меньше времени! На пути к офису расположено k кварталов (каждый машина проезжает за t2 минут) и m светофоров (на каждом машина стоит t3 минут) Сергею стало интересно на сколько быстрее его новый способ передвижения. Помогите ему ответить на этот вопрос!
Формат ввода
В первых трёх строках через записаны целые числа n, k и m - количество станций, кварталов и светофоров соответственно (0 ≤ n, k, m ≤ 1000). В следующих трех строках целые числа t1, t2 и t3 - время, которое тратится на преодоление одной станции метро, квартала и светофора соответственно (0 ≤ t1, t2, t3 ≤ 1000).
Формат вывода
Выведите одно число - на сколько быстрее Сергей добирается от дома до своего офиса. Если же способ передвижения на машине дольше чем на метро, то выведите -1.
//PascalABC.NET 3.2 сборка 1318
<span>
</span>Const
n=7;
Var
ma:array[1..n,1..n] of integer;
countn,countp,i,j:integer;
sr:real;
begin
for i:=1 to n do
for j:=1 to n do
begin
readln(ma[i][j]);
if ma[i][j]>0 then inc(countp) else
if ma[i][j]<0 then inc(countn);
end;
for i:=1 to n do
begin
for j:=1 to n do
write(ma[i][j]:4);
writeln;
end;
writeln('Count of positive=',countp,', count of negative=',countn);
for j:=1 to n do
begin
sr:=0;
for i:=1 to n do
sr+=ma[i][j];
writeln(j,' ',sr/n);
end;
end.
Для представления текстовой информации в компьютере используется алфавит мощностью <span>25<span>6 символов.
</span></span>
1 символ = 8 бит = 1 байт
то есть в тексте <span>"Не оставляй на завтра то,что можно сделать сегодня" 50 сиволов
50 * 1 = 50 байт или (400 бит) памяти занимает</span>
//Решение для годовой процентной ставки
#include <iostream>
#include <math.h>
#include <iomanip>
#define MONT 12
#define PER 100
using namespace std;
int main()
{
unsigned int credit, period;
double montpay;
cout << "Input loan amount: ";
cin >> credit;
cout << "Input crediting period (years): ";
cin >> period;
cout << setw(15) << "INTEREST RATE | " << setw(15) << "MONTHLY WAGE | " << setw(13) << "TOTAL PAYMENT" << endl;
for(double p = 5.; p <= 8.; p += 1./8) {
montpay = credit * p / MONT / PER * pow(1 + p / MONT / PER, period * MONT) / (pow(1 + p / MONT / PER, period * MONT) - 1);
cout << setw(9) << fixed << setprecision(3) << p << "%" << setw(15) << fixed << setprecision(2) << montpay << setw(16) << fixed << setprecision(2) << montpay * period * MONT << endl;
}
return 0;
}
//Редактор не сохраняет форматирование => прикрепил .cpp файл