Задать вопрос
22 сентября, 23:09

Помогите решить задачи по информатике в паскале

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

2. сначала вводится количество чисел а затем сами числа вычислить количество чисел кратных 3

+4
Ответы (2)
  1. 23 сентября, 01:12
    0
    1)

    var p, o, s:integer;

    begin

    Read (s) ;

    while s0 do

    begin

    if s>0 then

    p+=s

    else

    o+=s;

    Read (s) ;

    end;

    Writeln ('сумма положительных ', p) ;

    Writeln ('сумма отрицательных ', o) ;

    end.

    2)

    var n, o, s:integer;

    begin

    writeln ('введите кол-во чисел') ;

    Read (n) ;

    write ('вводите числа по одному ') ;

    for var i:=1 to n do

    begin

    Read (s) ;

    if s mod 3 = 0 then

    o+=1;

    end;

    Write ('кол-во кратных чисел 3 'o) ;

    end.
  2. 23 сентября, 01:19
    0
    Var

    A, So, Sp:real;

    Begin

    So:=0;

    Sp:=0;

    Repeat

    Read (A) ;

    if A>0 then Sp:=Sp+A

    else So:=So+A;

    Until A = 0;

    WriteLn ('Сумма положительных: ', Sp) ;

    WriteLn ('Сумма отрицательных: ', So) ;

    End.

    Var

    N, k, A:integer;

    Begin

    Write ('Введите количество чисел: ') ; ReadLn (N) ;

    Write ('Введите сами числа: ') ;

    k:=0;

    For N: = 1 to N do

    Begin

    Read (A) ;

    if A mod 3 = 0 then k:=k+1

    End;

    WriteLn ('Количество чисел, кратных трём: ', k) ;

    End.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Помогите решить задачи по информатике в паскале 1. с клавиатуры вводят числа. признак окончания ввода чисел число 0. вычислить сумму ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы
Похожие вопросы по информатике
1. Массив и 4 целых чисел вводится с клавиатуры. Найти и вывести произведение элементов массива. 2. Массив из 6 отрицательных и положительных целых чисел вводится в области описания констант. Найти сумму положительных элементов массива. 3.
Ответы (1)
Напишите задачи в Паскале задача1 {вводится целое число n от [0 ... 200]. Затеи вводится n целых чисел от [0 ... 1000000] Вывести на экран их произведение.} задача2 {вводится целое число n от [0 ... 200]. Затеи вводится n целых чисел от [0 ...
Ответы (2)
помогите решить задачю по информатике С клавиатуры последовательно вводят целые числа и высчитывается их сумма если с клавиатуры вводят 0, то больше числа не вводят. Найти сумму всех введеных чисел.
Ответы (1)
Помогите решить 3. С клавиатуры вводится четырехзначное число. Получить число, равное произведению его цифр. 4. С клавиатуры вводится натуральное число п. Узнайте в нем количество цифр. 5. С клавиатуры вводится натуральное число п.
Ответы (1)
помогите решить три номера! 1. Вычислите сумму данных 100 натуральных чисел. Вводятся 100 чисел, сумму которых необходимо посчитать. 2. Вводится число N, а затем N чисел. Подсчитайте, сколько среди данных N чисел нулей. 3.
Ответы (1)