Сформировать массив, содержащий сведения об игрушках: название игрушки, стоимость, возрастные границы. Вывести на экран содержимое массива в виде таблицы с заголовками столбцов. Pascal ABC
Ответы на вопрос
Ответил DonPedro80
0
type
ttoy=record
naim:string[30];
stoim:integer;
age1,age2:integer;
end;
var
atoy:array[1..50] of ttoy;
i,n:byte;
begin
Write('Количество игрушек: ');
Readln(n);
for i:=1 to n do
begin
Writeln('Игрушка № ',i);
Write('Наименование: ');
Readln(atoy[i].naim);
Write('Стоимость: ');
Readln(atoy[i].stoim);
Write('Возрастные границы: ');
Readln(atoy[i].age1,atoy[i].age2)
end;
Writeln(' Наименование игрушки Стоимость Возрастные границы');
for i:=1 to n do
Writeln(atoy[i].naim:30,atoy[i].stoim:9,atoy[i].age1:10,
' - ',atoy[i].age2)
end.
ttoy=record
naim:string[30];
stoim:integer;
age1,age2:integer;
end;
var
atoy:array[1..50] of ttoy;
i,n:byte;
begin
Write('Количество игрушек: ');
Readln(n);
for i:=1 to n do
begin
Writeln('Игрушка № ',i);
Write('Наименование: ');
Readln(atoy[i].naim);
Write('Стоимость: ');
Readln(atoy[i].stoim);
Write('Возрастные границы: ');
Readln(atoy[i].age1,atoy[i].age2)
end;
Writeln(' Наименование игрушки Стоимость Возрастные границы');
for i:=1 to n do
Writeln(atoy[i].naim:30,atoy[i].stoim:9,atoy[i].age1:10,
' - ',atoy[i].age2)
end.
Ответил Аноним
0
что будет если я Модератором скажу что ты акка создаешь
Ответил Аноним
0
как думаешь?
Ответил Аноним
0
могу докаазать даже
Ответил Аноним
0
кнч за тоблй никьо не смотриттпотомучто мало Модер на инфор, и неактив чуть они
Ответил Аноним
0
это тебе в пользу
Новые вопросы
География,
2 года назад
Физика,
8 лет назад
Информатика,
8 лет назад
Математика,
9 лет назад
Математика,
9 лет назад