Var a,b,c:integer;
begin
writeln('Введите номер секунды');
readln(a);
b:=a div 3600;
c:=(a - 3600*b) div 60;
writeln(b,' ч ',c,' мин');
<span>end.</span>
Таблица истинности:
A | B | A*B | ~(A*B) | ~(A*B) + A*B
0 | 0 | _ 0 _| _ 1 __ | _ 1
0 | 1 | _ 0 _| _ 1 __ | _ 1
1 | 0 | _ 0 _| _ 1 __ | _ 1
1 | 1_ | _ 1 _| _ 0 __ | _ 1
Не обращайте внимания на подчеркивания, это для выравнивания таблицы.
Чего и следовало ожидать - логическое ИЛИ любого выражения и его же отрицания тождественно равно логической 1, то есть ИСТИННО всегда.
Дерево показано на рисунке.
Обратите внимание на то,что русская и английская буква 'а' визуально идентична.
var a,b:String;
begin
a:= ReadString();
b:= ReadString();
WriteLn();
if a.Contains('а') <> true then
WriteLn(a);
if b.Contains('а') <> true then
WriteLn(b);
end.
Ответ:
Скажите значения переменных, тогда напишу программу.И на каком языке уточните.
У тебя цикл работает, пока Y меньше 14, но внутри цикла ты Y не увеличиваешь, поэтому программа работает бесконечно и не выдаёт ответ.
Я добавил переменную i:integer (integer - чтобы работал mod(остаток от деления на число)), потому-что у нас чередуются знаки + и -. Также убрал зацикливание
program three;
var c,a,y,t,n:real;
i:integer;
begin
writeln('Введите с');
readln(c);
y:=3;
t:=0;
i:=0;
while (y<14) do begin
i:=i+1;
n:=sqr(y);
if i mod 2 = 1 then t:=t-((c-3)/n)
else t:=t+((c-3)/n);
y:=y+2;
end;
writeln(t);
end.