1) Написати програму, яка отримує від користувача назву файла і його розширення. Потрібно вивести на екран тільки розширення веденого файла. Використовувати методи .split() і repr. 2) Використовувати f-string
Написати програму, яка на вході отримує готову дату і вам потрібно роздрукувати числа, так щоб мало наступний вигляд:
Ввід: (21,11,2020)
Вивід: Екзамен почнеться у 21/11/2020
3) Чистовувати f-string
Напишіть програму, яка на вході отримує число n і виводить послідовність додавання n+nn+nnn.
Наприклад:
Ввід: 5.
Вивід: 5+55+555
І отримуємо 615
4) Певірка повинна бути через умови (if, elif, else)
Написати програму в якій перевіряється чи даний список пустий чи ні.
5) Потрібно використати for-цикли.
Напишіть програму, де відбуваться вставка слова і приєднання до нього числа в діапозоні заданого списка.
Ввід: num = [1,2,3,4]
Вивід: ['emp1', 'emp2', 'emp3', 'emp4']
6) Потрібно використати цикл і в ньому вкладений цикл, також потрібно знати метод додавання значень у список.
Створіть список у списку, де всі значення нулі. Всередині одного списку, повинно бути 3 списка і значення 0.
Наприклад: [[0,0], [0,0], [0,0]]
7) Створіть програму для оприділення знаку зодіака людини. На вході отримуємо номер дня і місяця, і на виході Зодіак людини
Наприклад:
Ввід: 15 6
Вивід: Близнюки.
8) ХТО ХОЧЕ СТАТИ МІЛЬЙОНЕРОМ: Тобто задаються питання(до 6 питань) програмою і людина відповідає. Підраховуються очки і виводиться результат на екран чи виграла людина чи ні.
9) AMONG US: Потрібно створити програму, яка буде оприділяти хто є диверсантом. Тобто якщо хтось із ваших чоловічків введе слово "Boom", то програма повинна його зафіксувати і видати результат.
10) Створіть програму, яка із вибірки характеристик генерує коментар до даного персонажа. Наприклад:
Список характеристик: [хороший, поганий, старанний, напористий]
Вивід: Вася Пупкін є дуже напористий і хороший, і всім він подобається.
Const
n=6;
Var
f,h:text;
i,maxi:integer;
ar:array[1..n] of real;
begin
ar[6]:=real.MinValue;
assign(f,'text.txt');
rewrite(f);
for i:=1 to n-1 do
begin
readln(ar[i]);
if ar[i]>ar[6] then
begin
ar[6]:=ar[i];
maxi:=i;
end;
end;
ar[maxi]:=ar[maxi]/2;
writeln('F:');
for i:=1 to n do
begin
write(f,ar[i],' ');
write(ar[i],' ');
end;
close(f);
writeln;
i:=0;
writeln('H:');
assign(h,'text1.txt');
rewrite(h);
while i<n do
begin
i:=i+2;
write(h,ar[i],' ');
write(ar[i]:4);
end;
close(h);
end.
Пример ввода:
1
2
3
4
5
Пример вывода:
F:
1 2 3 4 2.5 5
H:
2 4 5
const
n = 10;
var
a: array[1..n] of integer;
i, j, c, nc, max, imax: integer;
p:BigInteger;
begin
// Заполним массив сл. числами
max := -MaxInt;
for i := 1 to n do
begin
a[i] := random(-100, 100);write(a[i]:4);
if abs(a[i]) > max then begin
max := a[i];imax := i;
end;
end;
writeln;
//1. Количество элементов массива, больших С.
writeln('Введите число "с"');readln(c);
for i := 1 to n do if a[i] > c then nc := nc + 1;
writeln('Элементов больше чем ', c, ' : ', nc);
//2. произведение элементов массива,
//расположенных после мак симального
//по модулю элемента
p := 1;
for i := imax + 1 to n do p := p * a[i];
writeln('Максимальный по модулю элемент находится на ', imax, ' месте');
writeln('Произведение элементов массива,расположенных после максимального по модулю элемента ', p);
//3. Преобразовать массив таким образом, чтобы сначала размещались все
//отрицательные элементы, а потом все положительные
for i := 1 to n - 1 do
for j := 1 to n - i do
if a[j] > a[j + 1] then begin
swap(a[j], a[j + 1]);
end;
writeln('Преобразованный массив :');
for i := 1 to n do write(a[i]:4);
end.
Тестовое решение:
-6 91 52 62 -28 -64 86 86 -91 -61
Введите число "с"
15
Элементов больше чем 15 : 5
Максимальный по модулю элемент находится на 2 месте
Произведение элементов массива,расположенных после максимального по модулю элемента -1246076928
Преобразованный массив :
-91 -64 -61 -28 -6 52 62 86 86 91