Когда одно из высказываний является истинным или оба высказывания истинны
<span>1) 'windranger' > 'wind' длина первого операнда больше, на равной длине операнды равны;
'ASCII' < 'Ascii' символ S имеет код меньший, чем s
'cat' = 'cat'
'винни-пух' > 'Сова' символ "в" имеет код больший, чем "С"
2) Val('23.456', x, k) ⇒ x=23.456, k=0
Val('-45', x, k) ⇒ x=-45, k=0
Val('5.87c-5', x, k)</span> ⇒ x=0, k=1 Ошибка в представлении числа
Последовательность Фибоначчи образуется так: каждый следующий член равен сумме двух предыдущих(1,1,2,3,5,8,13,,,,)Дано натур. чи
xxx2036
#include <iostream>
using namespace std;
int main()
{
int seqEl[3] = {1, 1, 2};
int n;
cout << "N = ";
cin >> n;
// Вывод первых 3-х членов
cout << seqEl[0] << endl << seqEl[1] << endl << seqEl[2] << endl;
for (int i = 2; i < n; i++)
{
seqEl[0] = seqEl[1];
seqEl[1] = seqEl[2];
seqEl[2] = seqEl[0] + seqEl[1];
cout << seqEl[2] << endl;
}
return 0;
}
const m=10;
var c:array[1..m] of integer;
max,min,i,j: integer;
begin
writeln('Массив:');
for i:=1 to m do
begin
c[i]:=random(50);
write(c[i],' ');
end;
writeln;
max:=c[1];
min:=c[1];
for i:=2 to m do
begin
if c[i]>max then max:=c[i];
if c[i]<min then min:=c[i];
end;
writeln('max = ',max,' min = ',min,' max/min = ',max/min:5:2);
end.
Пример:
Массив:
27 29 35 42 30 42 27 42 21 31
max = 42 min = 21 max/min = 2.00
Function Check(k : Longint) : Boolean;
Var j : Byte;
Begin
Check:=True;
j:=k;
While j>0 do
Begin
If (j mod 10 = 0) or (k mod (j mod 10)<>0) then Check:=False;
j:=j div 10;
end;
end;
Var
n,i : Longint;
Begin
Readln(n);
For i:=1 to n do
If Check(i) then Writeln(i);
end.
