program qq; var a,b:integer; s:real; begin writeln('Введите число а'); readln(a); writeln('Введите число b'); readln(b); s:=sqrt(a+(b/a*a)-b); writeln('S=',S); end.
1) var a,b,r,i:longint; begin Readln(a,b); If a> b then begin r:=a;a:=b;b:=r;end; For i:=a to b do Writeln(I); end. 2) var a,b,i:longint; begin Readln(a,b); For I:=a to b do If I mod 2<>0 then writeln(i); End. 3) var a,b,i,s,symm:longint; begin Readln(a,b); s:=0;symm:=0; For I:=a to b do begin If I mod 2<>0 then s:=s+I; If I mod 3=0 then symm:=symm+I; End; Writeln(s,symm); end. 4) var r,p,a,n,i:longint; begin readln(a,n); r:=n; If n<0 then r:=-n; p:=1; for i:=1 to r do p:=p*a; if n<0 then writeln(1/p) else writeln(p); end.
import random. sys A = [random.randrange(-5, 5) for i in range(18)] #создаем массив из 18 эл от -5 до 5 print A # печатаем его zero = -1 # ищем последний 0 for i in range(len(A)): if A[i] == 0: zero = i if zero == -1: print "Нулевых элементов нет" sys.exit(0) # выход cnt = 0 # считаем сумму до zero for i in range(0, zero): if A[i]<0: cnt += A[i] print "Сумма отрицательных до последнего нуля: ", cnt mul = 1 # считаем произведение for i in range(zero+1, len(A)): mul *= A[i] print "Произведение правее zero ", mul
var a,b:integer; s:real;
begin
writeln('Введите число а');
readln(a);
writeln('Введите число b');
readln(b);
s:=sqrt(a+(b/a*a)-b);
writeln('S=',S);
end.