Постройте и заполните таблицу истинности для логического выражения
Таблицу построить в текстовом документе

При каких значениях A, B и С значение выражения будет истинным? ответ запиши в поле ниже.

function max (x,y : longint) : longint; begin  if x> y then max: =x else max: =y; end; var k : longint; s : string; begin  readln(s);   while (pos('.',s)< > 0)or(pos('! ',s)< > 0)or(pos('? ',s)< > 0) do

begin    k: =k+1;

    delete(s,max(max(pos('.',s),pos('! ',('? ',); end;   writeln(k); end.

в не указан   шаг изменения x , допустим он равен 1

var

x,y: real;

begin

x: =1;

while x< =10 do

begin

y: =1/x-5;

writeln(y: 8: 2);

x: =x+1;

end;

end.

1) 6 (худший вариант - 5+1)

2) 4 (худший вариант - 3+1)

3) 7 (худший вариант - 5+2)

4) 5 (худший вариант - 3+2)

если положить, что вода замерзает при нуле градусов, то:

program ice;

var temp : integer;

begin

writeln('введите температуру');

read(temp);

if temp > 0 then write ('вода не замерзнет')

else write('вода замерзнет');

end.