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>
Ответ:
Г
Объяснение:
В электронное письмо можно добавить абсолютно любой файл
Ответ:
program Fx;
var
x, fx: Double;
begin
Write ('X = ');
ReadLn (x);
if x <= 3 then
fx := x * x - 5 * x + 4
else
fx := 1 / (x * x * x + 8);
WriteLn ('F (x) = ', fx :15 :10);
ReadLn;
end.
Var a,b:real;
Begin
Write('Длина = ');ReadLn(a);
Write('Ширина = ');ReadLn(b);
if a=b then Write('Является квадратом')
else WriteLn('Не является квадратом')
End.
Var
f:text;
i,k:integer;
s,s1:string;
begin;
k:=0;
assign(f,'text.txt');
reset(f);
while not(Eof(f)) do
read(f,s);
close(f);
for i:=0 to 9 do
begin;
str(i,s1);
if pos(s1,s)=0 then k:=1;
end;
if k=0 then write('Да') else write('Нет');
<span>end.</span>