Здравствуйте с информатикой, : Задание 1.
Составить программу+ используя цикл while.
1. Найти сумму чисел 5+ 8+ 11+ 14+ …+ 32
2. Найти сумму чисел 3+ 7+ 11+ ..+ 39
3. Найти сумму -5+ (-2)+ 1+ …+ 22
4. Найти сумму чисел 6+ 12+ 18+ ..+ 60
5. Найти сумму чисел -10+ (-7)+( -4)+ …+ 17
6. Найти сумму чисел. 5+ 9+ 13+..+ 31
7. Найти сумму чисел -4+ 0+ 4+ ..+ 32
8. Найти сумму чисел 1+ 4+ 7+ …+ 28
9. Найти сумму чисел -1+ 4+ 9+ …+ 44
10. Найти сумму чисел 2+ 5+ 8+ ..+ 29
Задание 2.
Составить программу+ используя цикл for. N определяет пользователь.
1. Найти сумму 1+22
+32
+42
+…+n
2
2. Найти сумму 1*2+2*2+3*2+4*2+5*2+6*2+..n*2
3. Найти сумму 1+½+1/3+1/4+1/5+…1/n.
4. Найти сумму 3*1+3*2+3*3+3*4+3*5+..+3*n
5. Найти сумму 1+23
+33
+43
+…+n
3
6. Найти сумму 1*4+2*4+3*4+4*4+5*4+6*4+..n*4
7. Найти сумму ½+1/3+1/3+1/4+1/5+…1/n
8. Найти сумму 1+24
+34
+44
+…+n
4
9. Найти сумму 5*1+5*2+5*3+5*4+5*5+..+5*n
10. Найти сумму 2/3+2/4+2/5+2/5+…2/n
Задание 3. Выполните задание 2, используя цикл while
i, j, k : word;
f : boolean;
function isSpace(ch : char) : boolean;
begin isSpace := false;
if ch = ' ' then isSpace := true;
end;
begin f := false;
repeat j := 0;
writeln('введите строку, состоящую из 2 слов');
readln(s);
for i := 1 to length(s) do
if isSpace(s[i]) then
begin
inc(j);
k := i; end;
if j =1 then f := true;
until f;
write(copy(s, k + 1, length(s)), ' ', copy(s, 1, k - 1));
end.
недавно такую писала :)