Const n=13;
var
c:array[1..n] of integer;
i,num:integer;
begin
for i:=1 to n do c[i]:=random(-10,10);
for i:=n downto 1 do begin
write(c[i],' ');
if c[i] < 0 then begin
writeln(i);
break;
end;
end;
end.
3. pascal
var s, a: integer;
g:longint;
begin
s:=0;
readln(g);
while g > 0 do
begin
a:=g mod 10;
g:=g div 10;
s:=s+a;
end;
writeln(s)
end.
Логическое высказывание - <em>повествоввательное предложение, о котором можно сказать истинно оно или ложно </em>
Например:<em></em><em>Сегодня хорошая погода </em>
1)
а) 15 делится на 10 и на 3 - может сказать истина или ложно -подходит
б)Стихотворение... - может сказать - подходит
в) С новым годом! - не подходит
г) все лисы рыжие -подходит
д) 400+100=500 - подходит
е) сложите числа - не подходит
2) Дизъюнкция (логическое сложение) - истинно тогда и тогда тогда, когда истинно хотя бы одно входщее в него высказывание - "ИЛИ" (1-5-9)
Конъюнкция(логическое умножение) - истинно тогда и только тогда, когда истинны все входящие в него высказывания -"И" ( 2-4-7)
Инверсия(логическое отрицание) - Истинное высказывание делается ложным, ложное- истинным - "НЕ" (3-6-8)
3) Логическое сложение и отрицание написано во 2 пункте
var a, b, c: integer;
begin
readln(a, b, c);
if (a=-b)or(a=-c)or(b=-a)or(b=-c)or(c=-a)or(c=-b) then writeln('TRUE') else writeln('FALSE');
end.
Блок-схема по ГОСТ 19.701-90 (ISO 5807-85) во вложении.