Створіть програмний код в середовищі lazarus завдання - вопрос №99580501 от shulbert 03.02.2023 02:53

Question

Информатика: Створіть програмний код в середовищі lazarus завдання 1. розрахунок оплати за електроенергію (ів) в україні з 0.1.0.3.2016 по 31.08.2016 за споживання електроенергії визначено такий порядок оплати залежно від спожитого обсягу: вартість 1 квт при споживанні електроенергії до 100 квт за місяць – 57 грн, від 100 квт до 600 квт – 90 грн, понад 600 квт – 156 грн. деяким споживачам надається пільговий обсяг безоплатного користування електроенергією, наприклад, 30 квт. якщо така пільга є, то її віднімають

shulbert · 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.