writeln('indexi elementov kotorie bolshe prediduschego: ');
writeln;
for i: =2 to 10 do begin
if a[i]> a[i-1] then write(i,', ');
end;
for i: =2 to 10 do begin
if ((a[i]> =0) and (a[i-1]> =0)) or ((a[i]< 0) and (a[i-1]< 0)) then p: =p+1;
end;
writeln;
if p> 0 then writeln('masiv imeet pari sosednih elementov s odnakovimi znakami') else writeln('masiv ne imeet pari sosednih elementov s odnakovimi znakami');
readln(s);
end.
Ответ дал: Гость
во - первых рассмотрим простые высказывания:
м - монитор неисправен
в - видеокарта неисправна
о - оперативная память неисправна
во вторых: запишем на языке логики возможные предположения: (m v b) --> o и m --> b
пусть f(м,в,о) = (m v b) --> o и m --> b
составляем таблицу истинности:
м в о m --> b
0 0 0 1
1 0 1 1
0 0 0 1
1 1 1 0
0 0 0 1
0 1 1 0
1 1 0 0
1 1 1 1
1 0 0 0
1 0 0 0
0 1 1 1
1 1 0 1
0 1 1 0
1 1 1 1
0 0 1 0
1 1 0 1
1 1 0 1
1 0 1 1
анализ таблицы показывает, что сложное высказывание истинно во всех случаях, когда м – истинно, т.е. вероятнее всего неисправен именно монитор.
Ответ дал: Гость
var
s,s1: real;
k: integer;
begin
s: =10;
k: =1;
while s< 20 do
begin
s: =s*1.1;
k: =k+1;
end;
writeln('в ', k,' день он пробежит 20 км');
s: =10;
s1: =10;
k: =1;
while s< 200 do
begin
s: =s+s1*1.1;
s1: =s1*1.1;
k: =k+1;
end;
writeln('в ', k,' день суммарный пробег превысит 200 км');
Популярные вопросы