Определите логическое значение выражения: (p → q) ↔ (r → s), если p = "солнце светит ночами", q = "слон травоядное животное", r = "112 кратно 3", s = "солнце светит, но не греет".
//Для Pascal ABC.Net: Var a:array[1..10] of longint;n,i,k:longint; Begin readln(n); //Читаем количество элементов в массиве for i:=1 to n do begin read(a[i]); //Читаем каждый элемент в массиве if (a[i]<0) then k+=1; //Увеличиваем счётчик k на 1, если элемент меньше нуля end; writeln(k); //Выводим счётчик k End.
//Для Pascal ABC: Var a:array[1..10] of integer;n,i,k:integer; //Простой Паскаль не поддерживает longint Begin readln(n); for i:=1 to n do begin read(a[i]); if (a[i]<0) then k:=k+1; //Отличие в том, что здесь нельзя просто увеличить с только с :=k+1 end; writeln(k); //Выводим счётчик k End.
Я думаю, что это значит вот что: Если символом окажется числа, например 1566, то их можно прочитать не как один пять шесть шесть, а тысяча пятьсот шестьдесят шесть. Так же и слова. Мы же ведь когда говорим "Привет", мы же не говорим отдельно каждую букву("Пэ эр и в е тэ")? Значит, что если символы, стоящие рядом, можно прочитать и понять как единое целое. Я то уже поняла, что там написано, но никак не могу яснее объяснить:( . Ну, вот, к примеру. Мы же когда читаем слова, то несколько букв, соединенных вместе, мы читаем как слово( к примеру "да", мы его не читаем "дэ а", а читаем "да").
//Для Pascal ABC.Net:
Var a:array[1..10] of longint;n,i,k:longint;
Begin
readln(n); //Читаем количество элементов в массиве
for i:=1 to n do
begin
read(a[i]); //Читаем каждый элемент в массиве
if (a[i]<0) then k+=1; //Увеличиваем счётчик k на 1, если элемент меньше нуля
end;
writeln(k); //Выводим счётчик k
End.
//Для Pascal ABC:
Var a:array[1..10] of integer;n,i,k:integer; //Простой Паскаль не поддерживает longint
Begin
readln(n);
for i:=1 to n do
begin
read(a[i]);
if (a[i]<0) then k:=k+1; //Отличие в том, что здесь нельзя просто увеличить с только с :=k+1
end;
writeln(k); //Выводим счётчик k
End.