Program name;
const n=5;
var
m:array[1..n] of integer;
i,t:integer;
begin
writeln('Введите ',n,' елементов массива');
for i:=1 to n do readln(m{i});
t:=m{1};
for i:=2 to n do t:=t*m{i};
write('вывод массива: ');
for i:=1 to n do write(m{i},' ');
writeln(#13#10,'Результат произведения элементов массива: ',t);
readln;
<span>end. </span>
var
a:real;
begin
readln (a);
a:=trunc (a); {trunc - это такая функция (уже готовая в самой программе), которая находит целую часть числа}
writeln ('Целая часть числа а равна ',a)
end.
если я правильно понял смысл
244.375 | 0x1.e8c000p+7
452.156 | 0x1.c42800p+8
Если бы было нужно решение, написал бы.
#include <bits/stdc++.h>
using namespace std;
int main() {
int n;
cin >> n;
++n; // Потому что нам нужно число, большее n
while (n % 19 != 0) ++n; // Увеличиваем n, пока оно не делится на 19
cout << n << endl;
return 0;
}
Первый американский программируемый компьютер. Разработан и построен в 1941 году по контракту с IBM молодым гарвардским математиком Говардом Эйкеном и ещё четырьмя инженерами этой компании на основе идей англичанина Чарльза Бэббиджа.