<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>
program line_4;
uses crt;
var
kb, b: longint;
mb: real;
begin
clrscr;
write(‘kb (килобайт) = ‘); readln(kb);
b:=kb*1024*8;
mb:=kb/1024;
writeln(kb,‘ килобайт = ‘, b, ‘ бит = ‘, mb:6:4, ‘ мб’);
readkey;
end.
Var
x, y, z, n: Integer;
begin
ReadLn(n);
z := n mod 10;
y := (n div 10) mod 10;
x := n div 100;
WriteLn('Первое: ', x);
WriteLn('Второе: ', y);
WriteLn('Третье: ', z);
end.
// PascalABC.NET 3.4.2, сборка 1785 от 06.09.2018
begin
var (w, h) := ReadInteger2('w,h->'); // точка (w;h)
var (ox, oy) := (w / 2, h / 2); // находим координаты цента (0;0) и (w;h)
(w, h) := ReadInteger2('rw,rh->'); // ввод RW и RH
Println($'Координаты левой верхней вершины ({ox+h/2};{oy-w/2})'); // - половина высоты прибавляется и половина ширины вычитается
Println($'Координаты правой нижней вершины ({ox-h/2};{oy+w/2})'); // - половина ширины прибавляется и половина высоты вычитается
end.
Если моя математика не подводит, то должно быть верно.
См. фото ..........................................