<span>Стандартными компонентами среды ТР являются: рабочее поле, текстовый курсор, строка состояния, меню команд.</span>
Отмок, первое, или ком, второе непонимаю, лестница или железная дорога это, наверное дорогую. сердце.
лучше перезалей задание, с хорошим качеством
<h3>PascalABC.NET 3.4.2, сборка 1843 от 24.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var x := Frac(Abs(ReadReal('Введите исходное число:'))).ToString;
var k := ReadInteger('Введите значение k:');
var (s1, s2) := (x[3:3 + k], x[3 + k:3 + 2 * k]);
if s1.Select(t -> t.ToDigit).Sum = s2.Select(t -> t.ToDigit).Sum then
Println('Суммы равны')
else
Println('Суммы не равны')
end.
<h3>Введите исходное число: -542.6327288323</h3><h3>Введите значение k: 3</h3><h3>Суммы не равны </h3>
Представлю два варианта:
- С использованием PascalABC.NET
- С использованием обычного Pascal
Версия PascalABC.NET - 3.4.2, сборка 1978 (12.02.2019)
Var a:array[1..8] of integer;i:integer;beginrandomize;for i:=1 to 8 do begin a[i]:=random(20-10) + 10; write(a[i],' '); end; writeln;for i:=1 to 8 do begin if (a[i] < 15 ) then a[i]:=2*a[i]; write(a[i],' '); end;
<span>end.</span>