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>
Чем: камин, печка, солнце, костер, горячая вода, одежда
что: человек, комната, еда, земля,
Var a,b,c:integer; x:char;
begin
repeat
write('a = '); readln(a);
write('b = '); readln(b);
write('c = '); readln(c);
if (a+b>c)and(a+c>b)and(b+c>a)
then writeln('Стороны могут образовать треугольник')
else writeln('Стороны не могут образовать треугольник');
writeln('Желаете повторить? (Y/N)');
readln(x);
until x='N';
end.
Пример:
<span>a = 3
b = 5
c = 4
Стороны могут образовать треугольник
Желаете повторить? (Y/N)
Y
a = 8
b = 1
c = 5
Стороны не могут образовать треугольник
Желаете повторить? (Y/N)
<span>N</span>
</span>
Всего натуральных чисел, которые удовлетворяют условию - 55
22*0 + 14*604 = 8456
22*7 + 14*593 = 8456
22*14 + 14*582 = 8456
22*21 + 14*571 = 8456
22*28 + 14*560 = 8456
22*35 + 14*549 = 8456
22*42 + 14*538 = 8456
22*49 + 14*527 = 8456
22*56 + 14*516 = 8456
22*63 + 14*505 = 8456
22*70 + 14*494 = 8456
22*77 + 14*483 = 8456
22*84 + 14*472 = 8456
22*91 + 14*461 = 8456
22*98 + 14*450 = 8456
22*105 + 14*439 = 8456
22*112 + 14*428 = 8456
22*119 + 14*417 = 8456
22*126 + 14*406 = 8456
22*133 + 14*395 = 8456
22*140 + 14*384 = 8456
22*147 + 14*373 = 8456
22*154 + 14*362 = 8456
22*161 + 14*351 = 8456
22*168 + 14*340 = 8456
22*175 + 14*329 = 8456
22*182 + 14*318 = 8456
22*189 + 14*307 = 8456
22*196 + 14*296 = 8456
22*203 + 14*285 = 8456
22*210 + 14*274 = 8456
22*217 + 14*263 = 8456
22*224 + 14*252 = 8456
22*231 + 14*241 = 8456
22*238 + 14*230 = 8456
22*245 + 14*219 = 8456
22*252 + 14*208 = 8456
22*259 + 14*197 = 8456
22*266 + 14*186 = 8456
22*273 + 14*175 = 8456
22*280 + 14*164 = 8456
22*287 + 14*153 = 8456
22*294 + 14*142 = 8456
22*301 + 14*131 = 8456
22*308 + 14*120 = 8456
22*315 + 14*109 = 8456
22*322 + 14*98 = 8456
22*329 + 14*87 = 8456
22*336 + 14*76 = 8456
22*343 + 14*65 = 8456
22*350 + 14*54 = 8456
22*357 + 14*43 = 8456
22*364 + 14*32 = 8456
22*371 + 14*21 = 8456
22*378 + 14*10 = 8456<span>
</span>
Привет,да в таблицу можно вставлять и удалять строки и столбцы,это сделано для того что бы например ты внес(ла) в неё какую либо информацию,а потом решил,что она тебе не нужна и вместо того чтобы чтобы сидеть и долго стирать все это ты берёшь и удаляешь строку или столбец с этой информацией,или ещё другой способ ты создаёшь таблицу про моря и океаны(к примеру)и тебе надо 15 строк и 10 столбцов а изначально можно создать только 8 строк и 10 столбцов,и вот ты просто добавляешь строки со столбцами и у тебя всё получается!!!!