Закончились лекции, <span>и</span> студенты пошли домой (конъюнкция).
В природе бывает, что солнце при дожде светит <span>или</span> прячется в тучах (дизъюнкция).
В этом году летом мы <em>либо</em> поедем к морю, <span>либо</span> будем жить на даче (строгая дизъюнкция).
<span>Если</span> будет хорошая погода, <span>то</span> мы пойдем гулять (импликация).
<span>Неверно, что</span> 2 * 2 = 5 (инверсия).
Завтра мы <span>не</span> пойдем гулять (инверсия).
Я куплю ноутбук <span>тогда и только тогда, когда</span> получу премию (эквиваленция).
Человек и маленькая обезьяна
человек большая обезьяна и возврат обезьяны
человек большая обезьяна и возврат обезьяны
Большая и маленькая обезьяна
человек и большая обезьяна.3 человек переправить через реку а обезьяны нет.у меня получилось так)))
// PascalABC.NET 3.0, сборка 1144 от 16.01.2016
begin
var a:=ArrRandom(10,-5,15); a.Println;
Writeln('Сумма элементов с нечетными индексами равна ',
Range(0,9,2).Select(i->a.ElementAt(i)).Sum)
end.
<u><em>Тестовое решение:</em></u>
11 -3 3 8 8 14 8 12 15 2
Сумма элементов с нечетными индексами равна 45
# # Код на ruby 2.2.3p173
count = 0
for i in 0..9
for j in 0..9
for k in 0..9
num = i*10**5+j*10**4+k*10**3+k*10**2+j*10**1+i*10**0
count+=1 if num.between?(189980,205505)
end
end
end
p count
ответ 17
program parampampam;
uses crt;
var
i: integer; {счетчик}
s: integer;
begin
clrscr; {очистка экрана}
writeln ('Программа выводит числа от 1 до 99, сумма цифр которых равна числу S');
writeln ('Введите число S, от 0 до 18: ');
{ввод числа S с проверкой на корректность}
repeat
readln (s);
if (s>18) or (s<0) then
writeln ('Неверный ввод. Повторите')
until (s<=18) and (s>=0);
{вывод нужных чисел на экран (цикл с предусловием)}
for i := 1 to 99 do
if ((i div 10) + (i mod 10) = s) then {div дает целую часть, mod - остаток от деления}
write (i, ' ');
repeat until keypressed; {пустой цикл для задержки экрана до нажатия клавиши}
end.
