// PascalABC.NET 3.3.5, сборка 1636 от 10.03.2018
// Внимание! Если программа не работает, обновите версию!

begin
var (n,k):=(ReadInteger,0);
while n>0 do (n,k):=(n div 10,k+1);
Writeln(k)
end.

0 0

4 года назад

Составьте программу, вычисляющую значение функции y=a2+3а+1, при вводимом значении а

Varis

Var a: double;
begin
readln(a);
writeln('y=', sqr(a) + 3 * a + 1;
end.

0 0

4 года назад

Какие логические операции существуют в алгебре логики?

Лариса Сергеевна [7]

Конъюнкция ("и")
Дизъюнкция ("или")
Инверсия ("не")
Импликация ("следование")
Тождество

0 0

4 года назад

Зрение, обоняние, слух, вкус, осязание — всёвместе это ... (два слова).

Айдана1

Органы чувств ..........................!!!!!!!!

0 0

4 года назад