Вот держи две проги в скринах !!!!!!!!!!!!!!!!!!!!!!!!!!!!
Выдает ошибку в строке:
<span>new(i); i^=3;
</span>Если изменить как 1 и вторую строку, то бишь на <span>new(i); i^:=3;
То выдаёт ответ - <u>3</u>.</span>
Program progul ;
var total , lost , visit : real ;
begin
write ('vvedite vsego zaniatii Total=' ) ;
readln ( total ) ;
write ( 'vvedite Propuskov =' ) ;
readln ( lost ) ;
visit := (total - lost ) / total * 100 ;
writeln ( 'procent poseshaemosti=' , visit:5:2 , '%' ) ;
end.
Это таблица, где каждой букве алфавита ( а также цифрам и специальным знакам ) присвоен уникальный номер-код символа
<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
Writeln('*** Исходный массив ***');
var a:=MatrRandom(10,10,-99,99);
a.Println(4); Writeln(40*'-');
Writeln('Суммы по столбцам чисел, кратных 6');
a.Cols.Select(col->col.Where(t->t mod 6=0).Sum).Println
end.