В сведениях об экспортируемых товарах указывается наименование товара, страна, импортирующая товар, и объем поставляемой партии
263
344
Ответы на вопрос:
type
tovar=record
name: string[20];
country:string[20];
v:integer;
end;
var
j, volume, vv, code,n ,i:integer;
s, t, t1 :string[20];
d :array[1..5] of tovar;
f :text; l:tovar;
begin
assign(f, 'input.txt');
rewrite(f);
//создание
write('Введите количество товаров: ');
readln(n);
writeln('Введите данные о товарах');
for i:=1 to n do
begin
writeln(i,' товар');
with l do
begin
write('Наименование: '); readln(name);
write('Страна: '); readln(country);
write('Обьем: '); readln(v);
write(f,s);
end;
end;
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;
var
j, volume, vv, code,n ,i:integer;
s, t, t1 :string[20];
d :array[1..5] of tovar;
f :text; l:tovar;
begin
assign(f, 'input.txt');
rewrite(f);
//создание
write('Введите количество товаров: ');
readln(n);
writeln('Введите данные о товарах');
for i:=1 to n do
begin
writeln(i,' товар');
with l do
begin
write('Наименование: '); readln(name);
write('Страна: '); readln(country);
write('Обьем: '); readln(v);
write(f,s);
end;
end;
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.
Многие уверены, что скобки в переписке – это универсальный международный инструмент для выражения эмоций в текстовых сообщениях.
Объяснение:
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Другие предметы
-
лариса21905.03.2021 03:36
-
Dmitry32112329.12.2022 13:11
-
Irkuzmina27.05.2021 08:58
-
BigAwto15.12.2021 14:53
-
ktt921.08.2020 17:31
-
saulefazylovnap00xfc08.11.2020 15:06
-
lolsotobas10.07.2022 01:15
-
Коугар30.04.2023 13:23
-
oksana141013.01.2022 13:52
-
Евус111104.12.2021 18:43
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.