#include <iostream>
#include <iomanip> // std::setprecision
int main()
{
unsigned int W,H,K,P;
unsigned long M;
float T;
std::cin >> W >> H >> K >> P >> M >> T;
unsigned int n = (W*H);
std::cout << (n = ((n / K) + !(!(n % K)))) << " ";
std::cout << (n = (n*P)) << std::endl;
std::cout << ((M-n > 0) ? "YES" : "NO") << std::endl;
std::cout << std::setprecision(4) << (float(n) / T) << std::endl;
return 0;
}
На Паскале:
program Program1;
var i, j, n, k: integer;
var result: real;
var array1: array [1..255] of real;
begin
result := 0;
write('Введите значение N (не более 255): ');
readln(n);
for i := 1 to n do
begin
write('Введите значение ', i, ' элемента массива: ');
readln(array1[i]);
end;
begin
writeln('Массив, размером - ', n, ' элементов(а):');
for i := 1 to n do write(array1[i], ' ');
writeln;
end;
for i:=1 to n do
begin
k := 0;
for j:=1 to n do
if array1[i] = array1[j] then k := k + 1;
if k = 1 then result := result + array1[i];
end;
writeln('Сумма уникальных элементов массива = ', result);
<span>end.</span>
0..32 - это управляющие символы (\n, \t, \0, etc)
33..127 - это изображаемые символы (A, z, +, *, etc)
<h2>Ответ</h2>
Управляющий
поскольку все величины выражены в различных единицах, для сравнения приведем их к одним единицам (например, к байтам)
10240 бит =10240/8=1280 байт
160байт переводит не нужно
0,5 Мб=0,5*1024*1024=524288 байт
7Кб=7*1024=7168 байт это и есть ответ
по убыванию величины расположились так:
160 байт, 10240 бит, 7 Кб, 0,5 Мб
<u>PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
Writeln('Минимальный элемент ',a.Min);
end.
<u>Пример</u>
n= 18
-14 13 39 -5 -39 -8 39 41 -2 -49 -32 18 -33 -50 10 2 -2 3
Минимальный элемент -50
