Нева - Вена
Куба - Баку
Ирак - Каир
Эльбрус - Эльбурс
Токио - Киото
//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.
Сколько учеников имеют суммарный балл ниже среднего (excel) смотри на файле
Вот держи !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
// PascalABC.NET 3.3, сборка 1600 от 23.12.2017// Внимание! Если программа не работает, обновите версию!