В начале ввод переменных с клавы(а точнее а=5,b=10,c=20)
потом находим Х=а+б+с(не хочу менять раскладку)=5+10+20=35
Т.к. над Х ничего потом не делаем то в конце Х=35
терь след строка а=а(то бишь 5)умноженное на 85(если ты имел ввиду умножение)"а"=5 на 85 = 425
над "а" мы потом ничего не делаем так что в конце а=425
потом б=а(но терь "а"=425)+б(тобишь 10)
б=435
след строка мы присваиваем с значение 15(с=15)и т.к. мы с ним ничего не делаем оно и в конце с=15
след строка б=б(равное 435)ужножить на 83(если у тя умножить)
калькулятор сказал что б равен 36105
в итоге
а=425; б=36105; с=15 и Х=35
но перепроверь программу вдруг неправильно переписал)
из ребят пойдут в кино Вика и Сережа (вродебы)
Var a,b,c:array[1..5]of integer;
i:integer;
begin
for i:=1 to 5 do read(a[i]);
for i:=1 to 5 do read(b[i]);
for i:=1 to 5 do begin
if(a[i]<b[i])then c[i]:=a[i] else c[i]:=b[i];write(c[i],' ');
end;end.<span>
</span>
Сумма,произведение и по отдельности единицы, десятки и сотни
program A1;
Var a, d, b, c,r,t:Integer;
begin
Write(' введите трех значное число ' ) ;Read(a);
d:=a div 100;
c:=a mod 100;
c:=c div 10;
b:=a mod 100;
b:=b mod 10;
t:=d+c+b;
r:=d*c*b;
WriteLn(' число единиц = ', b);
WriteLn(' число десятков = ', c);
WriteLn(' число сотый = ', d);
WriteLn(' сумма его цифр = ', t);
WriteLn(' произведение его цифр = ', r);
end.
Площадь и периметр
program f33;
Var a, b, P, S:Real;
begin
Write('а = '); Read(a);
Write('b = ') ;Read(b);
S:=a*b;
P:=(a+b)*2;
WriteLn('S = ', S);
WriteLn('P = ', P);
end.