Var a,b,p:integer; d: real;
begin
readln(a,b);
p:=2*a+2*b;
d:=sqrt(sqr(a)+sqr(b));
writeln('периметр- ',p,' ' ,' диагональ- ',d)
<span>end.</span>
Номер кратен 5 - это строки номер 5, 10, 15 и 20, т.е. от 5 с шагом 5.
// PascalABC.NET 3.3, сборка 1627 от 27.01.2018
// Внимание! Если программа не работает, обновите версию!
begin
var (m,n):=(20,10);
Writeln('*** Исходный массив ***');
var E:=MatrRandom(m,n,1,99);
E.Println(3); Writeln(3*E.ColCount*'-');
var p:=BigInteger(1);
ForEach var i in Range(4,m-1,5) do
p:=E.Row(i).Where(t->t>4).Aggregate(p,(x,y)->x*y);
Println('Произведение равно',p)
end.
<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
Преобразуем выражение с помощью законов де Моргана и запишем его в виде
(Третья буква гласная) ИЛИ (Последняя буква согласная)
и проверим все варианты ответа.
1) Ложно, поскольку ложны оба высказывания: н — согласная и а — гласная.
2) Истинно, поскольку истинно первое высказывание: е — гласная.
3) Истинно, поскольку истинно второе высказывание: л — согласная.
4) Истинно, поскольку истинны оба высказывания: о — гласная и р — согласная.
Правильный ответ указан под номером 1.
Готово. Запрос на ввод, условие и вывод.