Question

с клавиатуры вводится последовательность целых чисел. конец ввода 0. найти сумму однозначных чисел

Answer 1

/* C */
#include <stdio.h>
#include <stdlib.h>

int main() {
    int n = 1, sum = 0;
    while (n != 0){
        scanf("%d", &n);
        if ((n > -10) && (n < 10)) sum += n;
    }
    printf("Sum = %d", sum);
    return 0;
}


//Pascal
var sum, n: integer;
begin
sum := 0; n := 1;
while (n <> 0) do
begin
readln(n);
if ((n > -10) and (n < 10)) then
sum := sum + n;
end;
writeln('Sum = ', sum);
end.

Answer 2

а модно в Паскале для 8 класса? Мы пошли толькоinteger и real))

Answer 3

можно*

Answer 4

прошли *

Answer 5

Из за твоего нарушения, я теперь не могу отредактировать решение свое.

Answer 6

//Pascal
var sum, n: integer;
begin
sum := 0; n := 1;
while (n <> 0) do
begin
readln(n);
if ((n > -10) and (n < 10)) then
sum := sum + n;
end;
writeln('Sum = ', sum);
end.