☺кароч эт дело должно выполнятся по программе ( 9 класс программирование ) 100 ! ♥надеюсь на * человек делает в магазине покупки. определите сколько денег у него останется после покупки в магазине перчаток стоимостью а руб., портфеля стоимостью в руб., и галстука стоимостью d руб., все исходные данный с клавиатуры.

Var a,b,c,d,e,f: integer; begin write('введите начальную сумму денег: '); read(c); write('введите стоимость перчаток: '); read(a); write('введите стоимость портфеля: '); read(b); write('введите стоимость галстука: '); read(d); e : = a + b + d; f : = c - e; writeln('вы потратили: ', e, ' рублей'); writeln('у вас осталось:   ', f, ' рублей'); end.

Program task; var a, b, c, d, e: integer; begin writeln('сколько рублей было у человека? '); readln(c); writeln('сколько стоили перчатки? '); readln(a); writeln('сколько стоил портфель? '); readln(b); writeln('сколько стоил галстук? '); readln(d); e : =  c - (a + b + d); if e > 0 then writeln('у человека осталось', e,  ' рублей') else if e = 0 then writeln('у человека не осталось  денег') else writeln('у человека не хватило денег'); readln; end.

Var begin readln(n); if n=1 then begin writeln('1 месяц'); writeln('кол-во дней'); end; if n=2 then begin writeln('2 месяц'); writeln('кол-во дней'); end; if n=3 then begin writeln('3 месяц'); writeln('кол-во дней'); end; if n=4 then begin writeln('4 месяц'); writeln('кол-во дней'); end; if n=5 then begin writeln('5 месяц'); writeln('кол-во дней'); end; if n=6 then begin writeln('6 месяц'); writeln('кол-во дней'); end; if n=7 then begin writeln('7 месяц'); writeln('кол-во дней'); end; if n=8 then begin writeln('8 месяц'); writeln('кол-во дней'); end; и так до 12 я не уверен что тебе нужен такой в место к примеру 1 месяца пишешь

Const n=20; var a: array[1..n] of integer; i,i1,i2,x: integer; begin randomize; a[1]: =random(10); write(a[1],' '); for i: =2 to n do   begin   a[i]: =a[i-1]+random(10);   write(a[i],' ');   end; writeln; write('x = '); readln(x); i1: =1; i2: =n; repeat i: =(i1+i2) div 2; if a[i]< x then i1: =(i1+i2) div 2+1; if a[i]> x then i2: =(i1+i2) div 2-1; until (a[i]=x)or(i1> i2); if a[i]=x then    begin   writeln('искомый(ые) номер(а) элемента(ов): ');   while (i> 0)and(a[i]=x) do i: =i-1;   i: =i+1;   while (i< =n)and(a[i]=x) do begin write(i,' '); i: =i+1; end;   end   else writeln('элемент не найден'); writeln; end. пример: 5 6 14 15 15 22 30 36 45 45 50 56 60 64 67 76 84 92 99 101  x = 15 искомый(ые) номер(а) элемента(ов): 4 5