Question

Переведите с Паскаля на С++
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
type mag=record //тип запись с полями
nom,stm:integer;//номер магазина и сумма потраченных в нем денег
end;
var f:text;
a:mag;
s,nmx,mx:integer;
begin
assign(f,'input.txt');//файл в папке с программой
reset(f);
s:=0;
mx:=0; //пока мкс. сумма=0
while not eof(f) do
begin
read(f,a.nom,a.stm);//читаем поля записи
s:=s+a.stm; //считаем общую сумму
if a.stm>mx then // если сумма больше предыдущего максимума,
begin
mx:=a.stm;//новый максимум
nmx:=a.nom; //номер магазина
end;
end;
close(f);
assign(f,'output.txt');
rewrite(f);
writeln(f,'Всего потрачено денег=',s);
writeln(f,'Больше всего потрачено денег в магазине номер ',nmx,' сумма=',mx);
close(f);
write('Файл input.txt прочитан, результат записан в файл output.txt')
end.
0

Answer 1

Răspuns:

Вы должны писать правильно, чтобы кого-то понять