1)
var a:array [1..4] of integer;
var x,i,i1: integer;
begin
writeln('Введите 4-х значное число');
read(x);
for i:=1 to 4 do begin
a[i]:=x mod 10;
if a[i] mod 3 = 0 then begin
i1:=i1+a[i];
end;
x:=x div 10;
end;
write(i1);
<span>end.
2)
Немного не понял:
var a:array [1..4] of integer;
var i,n,y: integer;
begin
n:=1;
for i:=1 to 4 do begin
writeln('Введите ',n, ' число');
read(a[i]);
if a[i]<0 then y:=y+1;
n:=n+1;
end;
write('Отрицательных чисел: ',y);
end.
<span>
3)
var i,y,x: integer;
begin
writeln('Выберите действие: 1)y=x^3 + x; 2)y=(x+1)^2; 3)y=sqr(x+4)');
read(i);
if i=1 then begin
writeln('Введите x');
read(x);
write('y=',(x*x*x)+x);
end
else begin
if i=2 then begin
writeln('Введите x');
read(x);
write('y=',(x+1)*(x+1));
end
else begin
if i=3 then begin
writeln('Введите x');
read(x);
write('y=',sqrt(x+4));
end;
end;
end;
end.<span>
</span></span></span>
Сева-1 место, Денис-2 место, Андрей-3 место и Витя-4, по диаграмме решала<span />
100011(2)=35 (10)
100011(2)=43(8)
100011(2)=23(16)
<span>101001011(2)=513(8)</span>
<span><span>101001011(2)=331(10)</span></span>
<span><span><span>101001011(2)=14B (16)</span></span></span>
var
p, w, x, y: real;
begin
Write('Введите через пробел p, x, w: ');
Readln(p, x, w);
y := sqrt(2 * p) * exp((x + 1) * ln(x)) * exp(-x - sqrt(w / (2 * p * x)));
Writeln('Y=', y:0:6)
end.
Тестовое решение:
Введите через пробел p, x, w: 3 1.456 4.7
Y=0.690109
Var a,s,i :integer;
begin
readln(a);
while a<>0 do begin
readln(a);
if (a >15) and (a<190) and (a mod 2=0) then
s:=s+a;
end;
writeln(s);
end.