<u>Белоруссия</u> - Минск
<u>Германия</u> - Берлин
<u>Испания</u> - Мадрид
<u>Италия</u> - Рим
<u>Швеция</u> - Стокгольм
2 т.к. 3к байтов = 24к битов
И 24к делим на 5*32*80=12к
//Pascal ввод с клавиатуры
var A, B: integer;
begin
write('Введите A, B = '); readln(A, B);
writeln(A+B);
end.
//Pascal ввод/вывод через текстовый файл
//input.txt должен находиться в папке с программой
var
A, B: integer;
t1, t2: text;
begin
assign(t1, 'input.txt');
assign(t2, 'output.txt');
reset(t1);
readln(t1, A, B);
close(t1);
rewrite(t2);
write(t2, A+B);
close(t2);
end.
S = input("Введите Фамилия, Отчество Имя:\n")
s1 = s[0:s.find(",")]+s[s.rfind(" "):len(s)]+s[s.find(" "):s.rfind(" ")]
print(s1)
Пример:
<span>Введите Фамилия, Отчество Имя:
Иванов, Сидорович Прохор
Иванов Прохор Сидорович</span>
Нужно что-то присвоить функции для случая, когда (2*a+b-c)<0
Например, так:
function sqrt1 (a, b, c: real): real;
begin
if (2 * a + b - c) < 0 then
<span>begin writeln (' complex number '); sqrt1:=-1; end</span>
else sqrt1:= sqrt(2 * a + b - c);
<span>end;</span>