Program chisla;
uses crt;
var a,b,c : integer;
begin
Write('Введите пятизначное число: ');
readln(a);
if (a>99999) then Writeln('Введено не пятизначное число')
else
begin
b:=a div 1000 mod 10;
c:=a div 10 mod 10;
Writeln('Сумма 2й и 4й цифры этого числа равна: ',b+c);
end
<span>end.</span>
Var n,p,m,max1,max2,im1,im2,i:integer;
begin
Randomize;
n:=347000;
max1:=0; max2:=0;
for i:=2017 to 2025 do
begin
p:=round(n*(2*random+1.5)/100);
m:=round(n*(2.5*random+0.5)/100);
if p>max1 then begin max1:=p; im1:=i; end;
if m>max2 then begin max2:=p; im2:=i; end;
n:=n+p-m;
writeln(i,': n = ',n);
end;
writeln('Наибольший прирост = ',max1,', ',im1,' год');
writeln('Наибольшая убыль = ',max2,', ',im2,' год');
end.
Пример:
2017: n = 345558
2018: n = 349922
2019: n = 353532
2020: n = 356979
2021: n = 364842
2022: n = 371614
2023: n = 381020
2024: n = 389903
2025: n = 388485
Наибольший прирост = 11702, 2023 год
Наибольшая убыль = 10701, 2020 год
Пусть вводятся числа a, b, c. Будем стараться получить a < b < c и тогда b - то самое "среднее", которое нам надо получить.
1. Сравним a и b. Если a>b, обменяем значения местами.
2. Сравним b и с. Если b<c, то искомое значение b, иначе искомое значение с, но обменивать их местами уже незачем, ведь мы уже узнали, что именно надо вывести.
var
a,b,c,t:integer;
begin
Write('Введите три числа через пробел: '); Read(a,b,c);
if a>b then begin t:=a; a:=b; b:=t end; // обмен
if b>c then Writeln(c) else Writeln(b)
end.
<u>Пример</u>
Введите три числа через пробел: 13 5 11
11
В первом файле язык С++.
А во втором на Pascal.
