Var money:integer;
min:real;
s:string;
begin
write('Стоимость одной минуты разговора = ');
readln(money);
write('Длительность разговора = ');
readln(min);
write('Какой сегодня день? ');
readln(s);
if (s = 'суббота') or (s = 'Суббота') or (s = 'Воскресенье') or (s = 'воскресенье') then writeln('Стоимость разговора = ',money * min*0.8)
else writeln('Стоимость разговора = ',money*min);
end.
Mod - это остаток от числа. Значит, 9 mod 2 = 1
вобще меня учитель учил это делать так:
Источником слуховой информации может быть воробей, трава (если по ней идти или её будет качать ветер), лужа (если в ней будет плескаться вода), а приемником слуховой информации может быть только воробей, как живое существо, обладающее слухом.
1)
(1 V (A V B)) V ((A V C) & 1) ⇒ 1)(1 V A V B) V ((A V C) & 1) ⇒
1 V ((A V C) & 1) ⇒ 1 V (A V C) ⇒ 1
Ответ: 1111
2)
(A & B & ¬B) V (A & ¬A) V (B & C & ¬C) ⇒ 0 V 0 V 0 ⇒ 0
Ответ: 0000