На PascalABC.NET
Первый столбик:
1) 5
2) Y=490
3) 1612
4) 24-1210
Второй столбик:
1) Результат=244
(В первом ошибка в задании была, перед else стоит ";")
2) При X=-5Y=2
3) -641.7
4) -56
(Тут тоже ошибки в задании: перед else стоит ";" и после не стоит ";"
<em>// PascalABC.NET 3.2, сборка 1379 от 21.01.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=Arr(-6,7,45,-12,2,7,-15,0,64);
var kp:=0; var sp:=0;
for var i:=0 to a.Length-1 do begin
WritelnFormat('A[{0}]={1}',i,a[i]);
if a[i]>0 then begin kp+=1; sp+=a[i] end
end;
Writeln('Сумма ',kp,' положительных элементов равна ',sp)
end.
Результат
A[0]=-6
A[1]=7
A[2]=45
A[3]=-12
A[4]=2
A[5]=7
A[6]=-15
A[7]=0
A[8]=64
Сумма 5 положительных элементов равна 125
<em>Задание 2</em>
begin
Writeln(SeqGen(40,x->45*x+15,1).Where(x->x.IsOdd).Count);
end.
<u>Результат</u>
20
<em>Задание 3</em>
begin
Writeln(SeqGen(25,k->7*k+3*k/15,1).Average);
end.
<u>Результат</u>
93.6
б) Спросить одного из них- "Что бы ответил твой, если бы его спросили, какая дорога идет к озеру ?"
Ответ по любому будет лживым и значит надо выбрать не ту дорогу которую указали
Исправленная:
VAR P:integer;
begin
write('введите пароль');
read (P);
if p=1998 then write ('Молодец') else write ('Пароль не верен');
end.