Var
i,n:integer;
IsOdd,IsEven:boolean;
begin
IsOdd:=false; IsEven:=false;
Write('Введите три числа: ');
for i:=1 to 3 do
begin
Read(n);
if n<>0 then
if (n mod 2)=0 then IsEven:=True
else IsOdd:=True
end;
Write('Среди введенных чисел ');
if IsOdd then Write('есть нечетное')
else Write('нет нечетных');
if IsEven then Write(' и есть четное')
else Write('и нет четных')
end.
<em><u>Тестовое решение:</u></em>
Введите три числа: 5 8 3
Среди введенных чисел есть нечетное и есть четное
Var a,b,i,z:integer;y,x,h,k:real;
begin
write('введите a,b,h');read(a,b,h); k:=(b - a)/h;z:= round(k);
for i:=0 to z do begin
x:=a + h*i;
y:= x*x *sin(x*Pi/180);
write(x:6);writeln(y:21:6);<span>end;</span>
Ответ: 3) Секретное слово (ПАРОЛЬ)
ПАР
МОЛЬ => ОЛЬ
Если слева (внизу или вверху) от рисунка стоят запятые (одна или несколько), то отбрасываются первые буквы слова (по количеству запятых).
Program Fibonacci;
var
p, q, r, i, n: integer;
begin
write('Alphaeus asks: please enter n = ');
readln(n);
p := 1;
writeln(p);
q := 1;
writeln(q);
for i:=3 to n do begin
r := p+q;
writeln(r);
p := q;
q := r
end;
end.