Вид списка и вид меню в диалоговом окне относится к свойствам диалогового окна
me576
10.09.2021
Pascalabc.net 3.3.5, сборка 1662 от 29.04.2018 внимание! если программа не работает, обновите версию! 1. в принципе, массив тут совершенно не нужен: begin readseqintegerwhile(t-> t< > 0).where(t-> (t mod 4=0) and (t mod 10=2)) .defaultifempty.average.println end. 2. но если хочется удлинить решение и получить лишний расход памяти, можно и с массивом: begin var a: =readseqintegerwhile(t-> t< > 0).toarray; a.where(t-> (t mod 4=0) and (t mod 10=.average.println end.
izykova22
10.09.2021
1var 2 i,n: byte; 3 s: integer; 4 begin 5 write('сколько слоев в пирамиде? '); 6 readln(n); 7 for i: =1 to n do 8 begin 9 s: =s+i*i; 10 writeln('в ',i,'-м слое ',i*i,' шаров'); 11 end; 12 writeln('в пирамиде из ',n,' слоев ',s,' шаров'); 13 readln; 14 end .
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Что такое вид списка, вид меню и в диалоговом окне?