var
a: integer;
begin
{1}
readln(a);
if a > 0 then a := a + 1;
writeln(a);
{2}
readln(a);
if a < 0 then a := a * 2;
writeln(a);
{3}
readln(a);
if a <> 0 then a := a - 4;
writeln(a);
{4}
readln(a);
if a > 0 then a := a + 1
else a := a - 1;
writeln(a);
{5}
readln(a);
if a = 0 then a := a + 3
else a := 0;
writeln(a);
end.
{6}
var
x, y: real;
begin
readln(x, y);
if x > y then x := x * y
else x := x + y;
writeln(x);
end.
Program raf105;
var
s: string;
c,i: integer;
begin
write('Введите фразу: ');
readln(s);
for i:=1 to length(s) do
if s[i] = 'o'
then c:= c+1;
writeln('Количество символов "o" в ведённой фразе: ',c);
end.
<h3><u>PascalABC 3.4.2</u></h3>
Ячейка B5 - это второй столбец, пятая строка.
в задании ваша формула $B$-D$4 записана неверно. должно быть, например $B$3-D$4.
при копировании формулы $B$3-D$4 в ячейку Е10
$B$3 останется тем значением, потому зафиксированы символом $ и строка и столбец ячейки.
в D$4 изменится только столбец D, он четвертый по счету, на два столбца больше чем B, значение строки останется 4.
Тогда при копировании формула будет: $B$3-G$4
$B$3-E$4 - зафиксировано
$3 - зафиксировано
$4 - зафиксировано
G - на 2 столбца больше E будет столбец G
--
надеюсь понятно объяснила)
Const
pi=3.14;
var
V1,V2,R,h:real;
begin
Write('Введите радиус и высоту: '); Read(R,h);
V1:=pi*sqr(R)*h; V2:=V1/3;
Writeln('Объем цилиндра ',V1:0:5,', объем конуса ',V2:0:5)
end.