<u>PascalABC.NET 3.3.5, сборка 1660 от 20.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
// №1
var a:=ArrRandom(15,-50,50); a.Println;
a.IndexesOf(t->t.IsEven).Select(t->t+1).Println;
// №2
var b:=ArrRandom(ReadInteger('n='),0,86); b.Println;
a.Where(t->t mod 3=0).Sum.Println;
// №3
var c:=ReadArrInteger(ReadInteger('m='));
c.Sum.Println;
// №4
var d:=ArrRandom(ReadInteger('n='),-60,60); d.Println;
d.Where(t->t>0).Sum.Println
end.
<u>Пример</u>
41 37 -10 7 33 -8 49 -1 -14 26 -17 -23 47 -25 7
3 6 9 10
n= 13
0 63 53 71 35 56 34 86 31 15 84 74 35
33
m= 8
13 -12 54 11 47 0 42 100
255
n= 18
52 39 -43 48 -34 -56 -14 28 -51 48 -56 -21 60 -19 -5 -19 43 44
362
257(8)=2*8^2+5*8^1+7*8^0=128+45+7=178
Лист бумаги надо перевернуть на 180 град. Получится 98
Снеговик: Всем привет)
Баба Яга: Привет, я не хочу с тобой разговаривать!!!
Снеговик: почему?
Баба Яга: ты меня обидел!!!
Снегурочка: перестаньте ругаться!!!!!!!
Дед Мороз: снегурочка права не стоит ругатся из за каких то мелочей!!!
Задание номер 1 - ответ будет 20, задание номер 2 - "Х = 5", так как действия сложения выполняются при условии что А будет меньше 0. Но данное условие не соответствует.
Задание номер 3 на языке PASCAL:
program example1;
var number : integer;
begin
read(n1, n2);
if(n1>n2){
number = n1/n2
write(n1, number);
}else if(n2>n1){
number = n2/n1;
write(n2, number);
}else{
write("Оба числа равны!");
}
end;
Задание номер - 4.
дано число 15
1) умножить на 2
2) вычти 3
3) вычти 3
4) вычти 3
5) умножить на 2
то есть для получения числа 42 мы сделали следующее с числом 15:
15 * 2 =30
30 - 3 -3 -3 = 21
21 * 2 = 42
конец данного задания