Var
a, b, s, h :real;
begin
s:= (a+b)*h/2;
<span>end.</span>
Program n1;
var a,c,b,num: integer;
begin
write('введите число: ');
readln(num);
a:= round(num div 100);
c:=round(num mod 10);
b:=round(((num mod 100)-c)/10);
writeln('сотни: ',a);
writeln('десятки: ',b);
writeln('единицы: ',c);
end.
1010110 <span> = 86 в десятичной системе</span>
Если тебе нужно узнать значение переменной s, то выполним следующее:
От-4до 1 делай:
s присвоить значение её же + i(позиция, в которой сейчас находится цикл);
Таким образом:
s + i : 0 + -4= -4
s + i : -4 + -3= -7
s + i : -7 + -2= -9
s + i : -9 + -1= -10
s + i : -10 + 0= -10
<span>s + i: -10 + 1= -9
Итог: s= - 9.</span>
Program Pr1;
uses crt;
var stroka,tmp:string;
i:integer;
Begin
clrscr;
readln(stroka);
for i:=1 to length(stroka) do if stroka[i]=' ' then tmp:=copy(stroka,1,i-1);
writeln(tmp);
end.