var a,b:integer;
S:real;
begin
writeln('Введите значение a: ');
readln(a);
writeln('Введите значение b: ');
readln(b);
S:=1/2*a*b;
writeln('S = ',S);
end.
1) использовать Робот
алг
нач
вниз
нц пока не слева свободно и снизу свободно
закрасить
вниз
кц
нц пока не снизу свободно и не слева свободно
закрасить
вправо
кц
нц пока не снизу свободно и справа свободно
закрасить
вправо
кц
нц пока не снизу свободно и не справа свободно
закрасить
вверх
кц
нц пока не справа свободно
закрасить
вверх
кц
кон
1 В столбце е пиши =(a1+B1)*(c1+d1) enter, а потом значит вниз протяни на все строки
2 =(a1/B1) *(c1/D1)
13 мб = 13631488 байт
128 мб = 0,13 гб
0,12 мб = 1006632,96 бит
0,01 гб = 10485,76 кб
<span>40960</span> бит = 5 кб
var s: string;
a: integer;
begin
readln(a);
if a mod 2=0 then s:='четное' else s:='нечетное';
if a in [1..9] then s:=s+' однозначное число';
if a in [10..99] then s:=s+' двузначное число';
if a in [100..999] then s:=s+' трехзначное число';
write(s);
end.