Последовательный порядок выполнения действий и наличие в каждой программной строке только одного оператора (т.е. без ветвления и циклов)
<em>// PascalABC.NET 3.3, сборка 1547 от 07.10.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var x:=ArrRandom(ReadInteger('Число элементов массива х:'),-99,99);
x.Println; var a:=x.Where(p->p>0).Sum;
var y:=ArrRandom(ReadInteger('Число элементов массива y:'),-99,99);
y.Println; var b:=y.Where(p->p>0).Sum;
var t:=ArrRandom(ReadInteger('Число элементов массива t:'),-99,99);
t.Println; var c:=t.Where(p->p>0).Sum;
Writeln('Z=',Ln(a)+Power(Cos(b),3)+c)
end.
<u>Пример</u>
Число элементов массива х: 8
56 59 24 -5 -13 -24 9 -86
Число элементов массива y: 11
0 6 25 -69 86 34 -92 72 -39 -64 96
Число элементов массива t: 6
-54 24 -15 50 0 19
Z=97.999309110524
130log2(16).
<span>Неужели сложно в формулу числа подставить?</span>
2)b=6*9-4=50
a=50/5*3-4=26
3) a=2*100+50=250
b=250*2-400=100
Var
a,b:real;
s:String;
begin
Writeln('Введите температуру');
Readln(a);
Writeln('Введите направление перевода (Ф=>С или С=>Ф)');
ReadLn(s);
If s[1] ='Ф' then
begin
b:=(a-32)/1.8;
Writeln(a,'° по Фаренгейту = ', b, '° по Цельсию')
end
else
If (s[1] ='С') then
begin
b:=(a*1.8)+32;
Writeln(a,'° по Цельсию = ', b, '° по Фаренгейту')
end
else
Writeln('Входная строка имела неверный формат');
end.