Есть ответ 👍

Постройки таблицу истинности -avb^-c (где "-" не , "^" и)

259
466
Посмотреть ответы 1

Ответы на вопрос:

Rufa77
4,7(51 оценок)

Var   i, c: int64;   s: string;   begin   readln(s);   if(s.length = 5) then begin     for i : = 1 to 5 do       c : = c + strtoint(s[i]);     writeln(c);     if(c > = 20) and (c < = 25) then write('находится')     else write('не находится');   end; end.

Популярно: Информатика