Всаду у лены растет много цветов. известно,что вчера распустилось на 11 цветов меньше,чем позавчера, и на 32 цветка меньше,чем позавчера и сегодня вместе. сколько цветов распустилось у лены в саду сегодня?
Если вчера распустилось на 11 цветов меньше чем позавчера и на 32 цветка меньше чем позавчера и сегодня вместе это знасит что сегодня распустился 21 цветок (32-11)
S:string; a, i, k, b, n:integer; begin readln(s); readln(a); k:=1; for i:=1 to length(s) do begin k:=k*val(s[i], n); if val(s[i], n)=a then b:=b+1;end; writeln(k); if b=0 then writeln('yes') else writeln('no'); readln; end. 2 a:array[1..1000] of integer; begin k:=1; for i:=100 to 999 if (((i+1) mod 2))=0) and (((i+2) mod 3)=0) and (((i+3) mod 4)=0) and (((i+4) mod 5)=0) then begin a[k]:=i; k:=k+1; end; for i:=1 to k do writeln(a[i]); readln; end.
3 s, a:string; i, k:integer; begin readln(s); readln(a); for i:=1 to length(s) do if s[i]=a then s[i]:=''; writeln(s); readln; end.
Для контроля массив заполняется случайными числами. Если заполнять автоматически не надо, то выделенные строки можно исключить, размерность массива изменить и вводить вручную (или считывать из файла) DIM A(5, 5) RANDOMIZE TIMER FOR I = 1 TO 5 FOR J = 1 TO 5 A(I, J) = RND(1) * 10 - RND(1)*5 PRINT A(I, J); " "; IF I = 1 AND J = 1 THEN MAX = A(I, J) MIN = A(I, J) END IF IF MIN > A(I, J) THEN MIN = A(I, J) IF MAX < A(I, J) THEN MAX = A(I, J) NEXT J PRINT NEXT I PRINT "MAX="; MAX, "MIN="; MIN L = INT(MAX) - ABS(FIX(MIN)) PRINT "L="; L
