Зробіть 5 завдання дуже швидко будь ласка потрібно дуже!

оба ответа подходят в языке

но логичнее нет

просто у нет в 2 функции: согласие с отрицанием и отрицание отрицания

ответ нет, на рисунке белая скатерть

(я выразил отрицание к вопросу)

словом нет можно выразить и отрицание и согласие

да здесь вообще не подходит его не рассматривает

у нет 2 варианта либо согласие с отрицанием - нет, скатерть не белая. либо отрицание вопроса - нет, белая.

var x1, x2, x3, y1, y2, y3, p: real;

function len(x1, y1, x2, y2: real): real; begin len : = sqrt(sqr(x2 - x1) + sqr(y2 - y1)); end;

begin readln(x1, y1, x2, y2, x3, y3); p : = len(x1, y1, x2, y2) + len(x1, y1, x3, y3) + len(x2, y2, x3, y3); writeln(p: 8: 3); end.

1- 2 брата близнеца, один из них возвращается назад

2 - плывет папа, возвращается другой брат

3 -    2 брата близнеца, один из них возвращается назад

4 - мама, возвращается другой брат

5 - оба брата близнеца

program sss;

uses crt;

var s: string;

            i,k,m: integer;

begin

clrscr;

readln(s);

for i: =1 to length(s)-2 do

begin

if ( (s[i] = 'т') or (s[i] = 'т') ) and ( (s[i+1] = 'о') or (s[i+1] = 'о') ) and ( (s[i+2] = 'м') or (s[i+2] = 'м')  then

begin

                k: =1;

                break;

end;

end;

if k = 1 then writeln('да')

else writeln('нет');

readkey;

end.