Cnt3_3 ввести n чисел, подсчитать количество четных чисел больших или равных 12.

Var s,i,x,n: integer; begin writeln('введите n'); readln(n); for i: =1 to 6 do   begin   readln(x);   if (x> =12) and (x mod 2=0) then s: =s+1;   end; writeln('ответ: ',s); end.

№1.

код на языке pascalabc:

program z1; uses crt; varx,y: real; beginwriteln('введите x '); readln(x); if x> 0 then y: =sqrt(x)elsey: =sqr(x); writeln('x= ',x,'y= ',y); end.

 

№2.

program z2; uses crt; vara,b,a1,b1,r: real; beginwriteln('введите 1 число '); readln(a); writeln('введите 2 число '); readln(b); a1: =sin(a)/cos(a); b1: =sin(b)/cos(b); r: =a1+b1; writeln('1 число: ',a,'   2 число: ',b,'   3 переменная: ',a1); writeln(' 4 переменная: ',b1,'   сумма 2 последних переменных: ',r); end.

 

непонятно, что за "надписи".

предположим, что

1. "бабушка попросила"

2. "взяла лукошко"

3. "подошла к кусту"

4. "сорвала ягоду"

5. "сварили варенье"

тогда логика будет следующей

 

бабушка попросила

если маша согласилась тогда

          взяла лукошко

          подошла к кусту

          если куст с тогда

                  пока (на кусте есть ягоды) и (лукошко пустое)  цикл

                                  сорвала ягоду

                  конеццикла

          конецесли

          сварили варенье

конецесли

 

в принципе, если несколько кустов, нужен цикл обхода по кустам пока не наполнится лукошко.