<span>def prog(last_name,ekz_1,num_1,ekz_2,num_2)<span>:
</span> print("Студент",last_name.title(),'\nотримав оцінку з ',ekz_1,num_1,'\nотримав оцінку з ',ekz_2,num_2,)
last_name = input("Введіть прізвище: ")
ekz_1 = (input("Введіть 1-ий екзамен: "))
num_1 = int(input("Введіть оцінку: "))
ekz_2 = (input("Введіть 2-ий екзамен: "))
num_2 = int(input("Введіть оцінку: "))
prog(last_name,ekz_1,num_1,ekz_2,num_2)</span>

0 0

4 года назад

Как в PascalABC сделать такого вида таблицу: 0 0 0 0 1 0 0 0 1 0 0 0 1 0 0 0 1 0 0 0 1 0 0 0 0 Знаю, что через массив, но к

Lev4ek

Не знаю, есть ли в PascalABC для этого какие-либо особые инструменты (давно уже на нем не кодил), но могу привести общие для любого языка программирования.

Пусть есть двумерный массив с размерами $M*N$ - кол-во столбцов и строк соответственно.

1) Вручную
Не самый лучший вариант с ростом кол-ва элементов

2) Вложенные циклы for
Первый перебираем от 0 до N-1 (переменная j)
Второй, вложенный в первый, перебираем от 0 до M-1(переменная i)
Внутри - условие: если (i == M-j-1), то ставим 1, иначе - 0.

0 0

1 год назад

Составить программу: Слово ТУРБИНА заменить словом РЕЗИНА Слово МОНИТОР заменить словом КОНТАКТ . Должна получиться одна програм

Petrovich 29635 [17]

var x:string;

begin

x:='Турбина';

writeln(x);

x:= 'Резина';

writeln(x); // writeln выводит текст

// с переменной х.

//Можно убрать.

x:='Монитор';

writeln(x);

x:='Контракт';

writeln(x);

end.

0 0

4 года назад