<span><span>const n=3;
type student=record
fam:string[20];
year:integer;
sex:string[1];
kurs:integer;
sport:string[30];
end;
var x:array[1..n] of student; i,j:integer;
p:student;
begin
for i:=1 to n do
with x[i] do begin
writeln('сведенья о ',i,' студенте:');
writeln('фамилия: ');
read(fam);
writeln('год рождения: ');
read(year);
writeln('пол( м или ж ): ');
read(sex);
writeln('курс: ');
read(kurs);
writeln('вид спорта: ');
read(sport);
end;
for i:=1 to n-1 do
for j:=i+1 to n do
if x[i].fam>x[j].fam then begin
p:=x[i];
x[i]:=x[j];
x[j]:=p;
end;
for i:=1 to n do begin
with x[i] do
if (sex='ж') then writeln('Фамилия студентки: ',fam,' Курс: ',kurs,' Вид спорта: ',sport);
end;
end.</span></span>
Program gt;
var a:array[1..10,1..10]of integer;
n,k,p:integer;
begin
p:=0;
for n:=1 to 10 do
for k:=1 to 10 do
a[n,k]:=1;
for n:=1 to 4 do
for k:=1 to n+1 do
begin
A[n,k]:=A[n,k]-1;
A[k,n]:=A[k,n]-1;
end;
for n:=1 to 10 do
begin
for k:=1 to 10 do
begin
write(a[n,k]:3,' ');
if(a[n,k]=0)then p:=p+1;
end;
writeln;
end;
writeln(p);
<span>end.
ответ:8</span>
1. Выберите Оператора
2.Введите номер телефона
3. Проверьте и подтвердите номер телефона
4.Введите в окно "сумма оплаты"
5.Внесите купюры в купюроприёмник (возможно ввод нескольких купюр
6.Нажать кнопку "Оплатить"
7.Дождитесь распечатки чека
8.Перейдите в окно "Главное"
Подробнее - на Znanija.com - znanija.com/task/31888514#readmore
начало->вводим сумму номеров проч. стр. (S)-> с=0, y=0 -> 1) c=c+1, y=y+c -> y=S ?
Нет то повторяем все начиная с п.1
Да выводим с -> конец
Примерно так. Если не очень понятно, извиняйте.
