В сведениях об экспортируемых товарах указывается названье продукта, страна, импортирующая товар,
В сведениях об экспортируемых товарах указывается названье товара, страна, импортирующая продукт, и объем поставляемой партии в штуках. Составить перечень государств, в которые экспортируется данный товар, и общий объем его экспорта
Задать свой вопрос1 ответ
Тамара Шмельченко
type
tovar=record
name: string[20];
country:string[20];
v:integer;
end;
nbsp;
var
j, volume, vv, code,n ,i:integer;
s, t, t1 :string[20];
d :array[1..5] of tovar;
f :text; nbsp;nbsp;nbsp;l:tovar;
begin
assign(f, input.txt);
rewrite(f);
nbsp;
//творение
write(Введите количество продуктов: );
nbsp;readln(n);
nbsp;writeln(Введите данные о товарах);
nbsp;for i:=1 to n do
nbsp;begin
nbsp;writeln(i, товар);
nbsp;with l do
nbsp;nbsp;begin
nbsp;nbsp;nbsp;write(Название: ); readln(name);
nbsp;nbsp;nbsp;write(Страна: ); readln(country);
nbsp;nbsp;nbsp;write(Обьем: ); readln(v);
nbsp;nbsp;nbsp;write(f,s);
nbsp;nbsp;end;
nbsp;nbsp;end;
nbsp;
nbsp;
nbsp;
reset(f);
volume := 0;
writeln(Введите наименование продукта: ); readln(s);
writeln(Данный продукт экспортируется с последующие страны: );
j := 1;
while not eof(f) do begin
readln(f, t); d[j].name := t;
readln(f, t1); d[j].country := t1;
readln(f, vv); d[j].v := vv;
if d[j].name = s then begin write(d[j].country, ); volume := volume + d[j].v end;
j := j + 1;
end;
writeln;
writeln(Общий объем экспорта продукта = , volume);
close(f);
end.
tovar=record
name: string[20];
country:string[20];
v:integer;
end;
nbsp;
var
j, volume, vv, code,n ,i:integer;
s, t, t1 :string[20];
d :array[1..5] of tovar;
f :text; nbsp;nbsp;nbsp;l:tovar;
begin
assign(f, input.txt);
rewrite(f);
nbsp;
//творение
write(Введите количество продуктов: );
nbsp;readln(n);
nbsp;writeln(Введите данные о товарах);
nbsp;for i:=1 to n do
nbsp;begin
nbsp;writeln(i, товар);
nbsp;with l do
nbsp;nbsp;begin
nbsp;nbsp;nbsp;write(Название: ); readln(name);
nbsp;nbsp;nbsp;write(Страна: ); readln(country);
nbsp;nbsp;nbsp;write(Обьем: ); readln(v);
nbsp;nbsp;nbsp;write(f,s);
nbsp;nbsp;end;
nbsp;nbsp;end;
nbsp;
nbsp;
nbsp;
reset(f);
volume := 0;
writeln(Введите наименование продукта: ); readln(s);
writeln(Данный продукт экспортируется с последующие страны: );
j := 1;
while not eof(f) do begin
readln(f, t); d[j].name := t;
readln(f, t1); d[j].country := t1;
readln(f, vv); d[j].v := vv;
if d[j].name = s then begin write(d[j].country, ); volume := volume + d[j].v end;
j := j + 1;
end;
writeln;
writeln(Общий объем экспорта продукта = , volume);
close(f);
end.
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Рассматривая литературный язык как сложное взаимодействие книжного языка и разговорного,В.И.Чернышёв горячо
Разные вопросы.
Арабы входят в __________________ групп народов. Местом расселения арабов с незапамятных
Разные вопросы.
Грузовой автомобиль марки краз за одну поездку может доставить 7.500 кирпичей
Математика.
Определить предложения какие они по цели высказывания и по интонации
Русский язык.
"Три толстяка" Называли эту площадь Площадью Звезды последующей причине.
Русский язык.
на одной грядке коротышки посадили 3 ряда морковок по 8 штук
Разные вопросы.
эссе на тему какое образование дается в каждой семье
Қазақ тiлi.
Put the verb in brackets into the Present Indefinite.
1The Volga ,
Английский язык.
Сколько стоит коктейль молочный? Точную цену надо?
Математика.
Составить рассказ Из чего складывался культ монарха помазанника Божьего?
История.
Облако тегов