Код:s = [] result = [] i = input() s.append(i) while i != "end": i = input().lower() s.append(i) s.remove("end") for i in range(len(s)): result.append(list()) for i in range(len(s)): for j in range(5): result[i].append(int(s[i])**2) for i in result: print(i)Вывод:1 2 3 end [1, 1, 1, 1, 1] [4, 4, 4, 4, 4] [9, 9, 9, 9, 9]P.S. после 3 идут двузначные, трехзначные квадраты и список немного съезжает. Получается что то типа этого: [1, 1, 1, 1, 1] [4, 4, 4, 4, 4] [9, 9, 9, 9, 9] [16, 16, 16, 16, 16] [25, 25, 25, 25, 25]Если тебе нужно, чтобы каждое число было под своим столбиком, то попробуй написать вывод списка сам, используя два цикла. Выводи построчно каждый символ с дефолтным кол-вом пробелов между числами с end=" " в операторе print. В конце вывода всего вложенного цикла сделай print(), чтобы вывод следующей строки списка осуществлялся с новой строки.
var a: array[1..t] of integer; i, min, k, tmp, klv, z: integer; b: boolean;
begin
for i := 1 to t do a[i] := random(10) + 1; //Рандом чисел от 1 до 10
writeln('Массив:'); for i := 1 to t do write(' ', a[i]:2); writeln;
for i := 1 to t - 1 do for k := i + 1 to t do if a[i] > a[k] then begin tmp := a[k]; a[k] := a[i]; a[i] := tmp; end;
writeln('После сортировки:'); for i := 1 to t do write(' ', a[i]:2); writeln;
klv := 0; writeln('Введите число X:'); readln(z); for i := 1 to t do if a[i] = z then begin b := true; inc(klv); end; if b then begin writeln('Число ', z, ' встречается ', klv, ' раз(а).'); end;
if b = false then writeln('Число ', z, ' не встречается.'); end.
Объяснение:
я хз