Каждое утро майор знаменский идет в тир и делает пять выстрелов через плечо. если он набирает 50 очков, то вечером идет с зиночкой в ресторан, а если меньше, то на тренировку в тир. написать программу, которая выдает планы майора на вечер. в паскале

//pascal abc.net v3.1 сборка 1219 //как я понял, количество очков случайно var   a,i,s: integer; begin   randomize;   for i: =1 to 5 do   begin     a: =random(11);     writeln(i,' выстрел -',a);     s: =s+a;   end;   writeln('сумма=',s);   if s=50 then writeln('идет с зиночкой в ресторан') else writeln('на тренировку в тир'); end. пример работы программы: 1 выстрел -3 2  выстрел -10 3 выстрел -7 4 выстрел -8 5 выстрел -0 сумма=28 на тренировку в тир

var slovo,simval: string; i,k: integer; begin k: =0;   write('введите имя и фамилию '); readln(slovo); write('введите символ '); readln(simval); for i: =1 to length(slovo) do begin if slovo[i]=simval then k: =k+1; if slovo[i]=simval then writeln(i,' '); end; if k> =1 then  writeln('да, встречается ',k,' раз, на позиции ',i)else writeln('нет'); end.

 

 

я немножко перевыполнил) от показывает есть симаол или нет, если есть то сколько раз он входит и на какой  

ну вот так это будет выглядеть с ветвлением и возможностью повторять вычисления без повторного запуска программы.

var a,b,c,d,z: integer; beginwriteln('введите 1 число'); read(a); writeln('введите 2 число'); read (b); writeln('введите 3 число'); read (c); d: =a+b+c; writeln('сумма чисел ',a,'+',b,'+',c,'=',d); writeln ('хотите ли вы решить еще один пример? 1-да, 0-нет'); read (z); while (z = 1) dobeginwriteln('введите 1 число'); read(a); writeln('введите 2 число'); read (b); writeln('введите 3 число'); read (c); d: =a+b+c; writeln('сумма чисел ',a,'+',b,'+',c,'=',d); writeln ('хотите ли вы решить еще один пример? 1-да, 0-нет'); read (z); end; end.