<span>C:\, school, <span>physics, school, math, notes.</span></span>
program raf105;
var a,sum,i:integer;
begin
writeln('Вводите 10 чисел по очереди');
for i:=1 to 10 do
begin
readln(a);
sum += a;
end;
writeln('Сумма: ',sum);
end.
<em><u>Язык PascalABC</u></em>
1)100110012 = 1∙2^7+0∙2^6+0∙2^5+1∙2^4+1∙2^3+0∙2^2+0∙2^1+1∙2^0 = 128+0+0+16+8+0+0+1 = 153
2)372 = 3∙8^2+7∙8^1+2∙8^0 = 192+56+2 = 250
3)372 = 3∙16^2+7∙16^1+2∙16^0 = 768+112+2 = 882
Заметим, что 6 в 7-ичной системе счисления - максимальная цифра, поэтому 666 = 1000 - 1.
666 + 543 = 1000 + 543 - 1 = 1542
#include <iostream>
#include <fstream>
int main()
{
setlocale(LC_ALL, "RUSSIAN");
std::ofstream file("file.txt");
int cr=0;
int max = 0;
int count = 0;
do
{
std::cout << "Введите число >> ";
std::cin >> cr;
if (cr > max)
max = cr;
if(cr!=421)
file << cr << std::endl;
count++;
} while (cr != 421);
file << "Количество введенных чисел: " << count << std::endl;
file << "Максимальное введенное число: " << max << std::endl;
}