Сформировать массив, содержащий сведения об игрушках: название игрушки, стоимость, возрастные границы. Вывести на экран содержимое массива в виде таблицы с заголовками столбцов. Pascal ABC
Ответы
Ответ дал:
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
это тебе в пользу
Вас заинтересует
1 год назад
1 год назад
2 года назад
8 лет назад
8 лет назад
8 лет назад