Var A:real;
Begin
Write('Введите число: ');ReadLn(A);
if A>=0 then A:=sqrtA
else write(a) ;
Write(A);
End.
<span>1. Для какого из данных слов истинно высказывание:
НЕ (оканчивается на мягкий знак) И (количество букв чётное)?
2) август - оканчивается не на мягкий знак и состоит из 6 - четного числа - букв
2. Для какого из приведённых имён ложно высказывание:
НЕ (Первая буква согласная) ИЛИ НЕ (Последняя буква гласная)?
2) Кристина - дизъюнкция (или) неверна, если неверны все операнды. Здесь неверно, что первая буква не согласная, и неверно, что последняя буква не гласная.
3. Для какого из данных слов истинно высказывание:
(оканчивается на мягкий знак) И НЕ (количество букв чётное)?
3) декабрь - конъюнкция (и) верна, если все операндцы истинны. Здесь верно, что слово оканчивается на мягкий знак и верно, что количество букв нечетное.
4.Для какого из приведённых имён истинно высказывание:
НЕ((Первая буква согласная) ИЛИ (Последняя буква гласная))?
1) Иван - если НЕ(...) истинно, то то, что в скобках - ложно. В скобках два утверждения, соединенные ИЛИ, значит, оба должны быть ложны.
5. Для какого из приведённых имён ложно высказывание:
(Третья буква гласная) ИЛИ НЕ (Последняя буква гласная)?
2) Татьяна
6. Для какого из приведённых чисел истинно высказывание: (число < 100) И НЕ (число чётное)?
3) 23
7. Для какого из приведённых значений числа X истинно высказывание: (X < 5) И НЕ (X < 4)?
4) 4 - действительно, 4 < 5, но неверно, что 4 < 4.
8. Для какого из приведённых имён истинно высказывание:
НЕ (Первая буква согласная) И НЕ (Последняя буква гласная)?
1) Юлиан
9. Для какого из приведённых значений числа X ложно высказывание: НЕ (X < 7) ИЛИ (X < 6)?
3) 6
10. Для какого из данных слов истинно высказывание:
НЕ (есть шипящие) И (оканчивается на гласную)?
Шипящие звуки — это [ж], [ш], [ч'], [щ'].
3) забота</span>
Первая задача
var a,b,x,y,z:
real;
begin
write ('х=');
read (x);
write('y=');
read (y);
write ('z=');
read (z);
a:= (x+y-z)/(x*x+2);
write ('a=');
write (a:1:2); end.
Вторая
var a,b,x,y,z:real;
begin
write ('х=');
read (x);
write('y=');
read (y);
write ('z=');
read (z);
a:= 5*((2*x-z)/(3+y*y));
write ('a=');
write (a:1:2);
end.
// PascalABC.NET 3.1, сборка 1200 от 13.03.2016
begin
var a:=ArrRandom(45,15,85); a.Println;
Writeln('Индексы нечетных элементов');
a.Select((x,i)->Rec(x,i+1)).Where(x->x.Item1.IsOdd).
Select(x->x.Item2).Println;
end.
<u><em>Тестовое решение:</em></u>
72 49 49 67 56 85 62 36 53 15 25 33 48 63 71 38 43 57 17 78 41 31 56 55 75 71 54 61 46 63 33 53 68 30 28 28 65 25 68 24 51 44 80 54 32
Индексы нечетных элементов
2 3 4 6 9 10 11 12 14 15 17 18 19 21 22 24 25 26 28 30 31 32 37 38 41
#include <iostream>
#include <cmath>
using namespace std;
double Otr(double Ax, double Bx, double Ay, double By) {
return sqrt((Bx - Ax)*(Bx - Ax) + (By - Ay)*(By - Ay));
}
int main() {
double Ax, Ay, Bx, By, Cx, Cy, Dx, Dy;
cin >> Ax >> Ay >> Bx >> By >> Cx >> Cy >> Dx >> Dy;
cout << "|AB|=" << Otr(Ax, Bx, Ay, By) << endl;
cout << "|AC|=" << Otr(Ax, Cx, Ay, Cy) << endl;
cout << "|AD|=" << Otr(Ax, Dx, Ay, Dy) << endl;
return 0;
}