Первая program PrograPervaya; var x,y,z,f:integer;
begin Writeln('vvedite pervoe chislo:='); readln(x); Writeln('vvedite vtoroe chislo:='); readln(y); Writeln('vvedite trete chislo:='); readln(z); if (x < y) and (x < z) then begin Writeln('Pervoe chislo menshee'); end; if (y < x) and (y < z) then begin Writeln('Vtoroe chislo menshee'); end; if (z < x) and (z < y) then begin Writeln('Tretee chislo menshee'); end; Write('End?'); readln(f); end. Вторая program PrograVtoraya; var k,i:integer; begin writeln('vevedite chislo'); readln(k); if (k mod 3 = 0) and (k mod 7 = 0) and (k mod 9 = 0) then begin writeln('chislo kratnoe 3, 7,9'); end else begin writeln('chislo ne kratno 3,7,9'); end; writeln('End?'); readln(i);
end.
Третья
program PrograVtoraya;var z,n,k,s,i:integer; begin writeln ('vvedite 4 znach chislo'); readln(n); z:=n div 1000; k:=n div 100 mod 10; s:=n div 10 mod 10; i:=n mod 10; if ((z = k) and (z = s) and (s = k)) or ((k = s) and (k = i) and (s = i)) or ((i = z) and (i = k)) and ( k = z) then begin writeln('Da, verno'); end else begin writeln('net, ne verno!'); end;
Var R,A:real; S:string; i,z,L:integer; Begin Read(S); S:=' '+S; L:=Length(S); i:=1; R:=0; Repeat Case S[i] of '0'..'9': Begin A:=0; if S[i-1]='-' then z:=1 else z:=0; While (S[i]in['0'..'9'])and(i<L) do Begin A:=A*10+StrToInt(S[i]); i:=i+1 End; if (i=L)and(S[i]in['0'..'9']) then A:=A*10+StrToInt(S[i]); if z=0 then R:=R+A else R:=R-A; End; End; i:=i+1 Until i>L; WriteLn('Сумма чисел в строке: ',R) End.
Они хотят изучать мир вокруг себя.И попробовать вкусно или нет