Очень . Сделать в экселе. Постройте график функции y=2x 2 -x-1 на промежутке [-5;5] с шагом 0,5 и решите - id2008452620200924 от mahinaboboeva 24.09.2020 15:35

Question

Информатика: Очень . Сделать в экселе. Постройте график функции y=2x 2 -x-1 на промежутке [-5;5] с шагом 0,5 и решите уравнение 2x 2 -x-1=0

mahinaboboeva · Accepted Answer

PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018Внимание! Если программа не работает, обновите версию!

begin

var n := Abs(ReadInteger('Введите целое число:'));

var yes := False;

var n1 := n mod 10;

n := n div 10;

while n > 0 do

begin

var n2 := n mod 10;

if n1 = n2 then

begin

yes := True;

break

end;

n := n div 10;

n1 := n2

end;

if yes then Print('Верно')

else Print('Неверно')

end.

А еще это можно решить, к примеру, так:

begin

var s := Abs(ReadInteger('Введите целое число:')).ToString;

if s.Pairwise.Any(t->t[0]=t[1]) then Print('Верно')

else Print('Неверно')

end.

Очень . Сделать в экселе. Постройте график функции y=2x 2 -x-1 на промежутке [-5;5] с шагом 0,5 и решите уравнение 2x 2 -x-1=0