Клавиши CTRL + PAGE UP перемещается к предыдущему размещению редактирования.Сочетание клавиш CTRL + PAGE DOWN перемещает к следующему изменению расположения.
Var a,b:real:
begin
read(a);
b:=a*0.91;
writeln();
write(&a,'m=',&b,'yards');
end.
<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var (sn,pp,kp):=(0,1,0);
var n:integer;
repeat
Read(n);
if (n<0) and n.IsOdd then sn+=n
else
if (n>0) and (n mod 3=0) then begin pp*=n; kp+=1 end
until n=0;
if sn=0 then begin
Writeln('Нет отрицательных нечетных чисел');
if kp=0 then Writeln('Нет положительных чисел, кратных 3')
else Writeln('Произведение положительных чисел, кратных 3: ',pp)
end
else begin
Writeln('Сумма отрицательных нечетных чисел: ',sn);
if kp=0 then Writeln('Нет положительных чисел, кратных 3')
else Writeln('Произведение положительных чисел, кратных 3: ',pp)
end
end.
<u>Пример</u>
-367 23 62 7 12 -24 90 152 -63 0
Сумма отрицательных нечетных чисел: -430
Произведение положительных чисел, кратных 3: 1080
3). Подставим в первый оператор значение х=25
if (25=10) or (25<2) then y:=5 else y:=10;
Теперь вычислим значение логического выражения, стоящего после if
false or false дает false.
Условный оператор if при false передаст управление оператору, стоящему после else и выполнится y:=10;
Это значение (10) и будет выведено.
4) Количество повторений цикла вида for i=a to b вычисляется по формуле
b-a+1.
Подставляем значения: 5-0+1 - 6. Получается, что 6 раз.
Program psck;
vara,b: integer;p,s: real;
begin
read(a,b); //стороны треугольника s:=a*b/2; p:=a+b+sqrt(a*a+b*b); writeln('Периметр - ',p); write('Площадь - ',s); end.
