Program psck;
vara,b,c: integer;y: real;
begin
a:=7;b:=16;c:=13;y:=(a*a+b*b)/7+c/(a-b);writeln('y = ',y); end.
Var i,j,k: integer;
<span> a: set of integer;
</span><span>begin
</span><span> i:=3; a:=[];
</span><span> repeat
</span><span> k:=0;
</span><span> for j:=2 to trunc(sqrt(i))+1 do
</span><span> if (i mod j)=0 then
</span><span> begin
</span><span> k:=1;
</span><span> break;
</span><span> end;
</span><span> if k=0 then a:=a+[i];
</span><span> i:=i+4;
</span><span> until i>256;
</span><span> writeln(a);
</span><span>end.
</span><span>83 79 167 163 251 71 67 151 239 59 139 227 47 223 43
131 127 211 31 23 199 19 107 103 191 11 7 3 179
</span><span>
</span>
И что же мы должны отвечать? Где вопрос?
Var x, y, i, c, s: integer;
begin
readln(x, y);
if (x < y) then
begin
for i := x to y do
begin
c := c + 1;
s := s + i;
end;
writeln('S = ', s, ' C = ', c);
end;
<span>end.
2)
const N = 10;
var a, c: array [0..N] of integer;
i: integer;
begin
for i := 0 to N do
a[i] := random(50);
for i := 0 to N do
begin
if (a[i] mod 2 = 0) then
c[i] := a[i] * a[i]
else
c[i] := 2 * a[i] * i;
end;
{Вывод массива, это для проверки, не обязательно, но если хотите...}
for i := 0 to N do
writeln('[', i, '] => ', c[i]);
<span>end.
<em>Учителям информатики очень лень говорить домашку х)</em></span></span>