Помогите с задачами по информатике через Pascal: 1. С клавиатуры вводятся целые числа,...

Question

37 просмотров

Помогите с задачами по информатике через Pascal:
1. С клавиатуры вводятся целые числа, признак окончания ввода - четное число, вычислить количество двузначных, сумму - последняя цифра больше 5.
Входные данные: -7, 11, 29, 115, 28
Выходные данные: k=2, s=22
2. С клавиатуры вводят n целых чисел, посчитать произведение положительных кратных 3.
Входные данные: 6, -21, 13, 7, 3, 12, -6
Выходные данные: p=36
3. С клавиатуры вводятся n целых чисел, найти среднее арифметическое положительных значений.
Помогите пожалуйста, буду очень благодарна.

Информатика Lain342_zn (12 баллов) 01 Май, 18 | 37 просмотров

Дан 1 ответ

Segrif_zn · Answer 1 · 2018-05-01T11:59:05+0000

{1}

var
a,k,s: integer;
begin
read(a);
k := 0; s := 0;
while a mod 2 <> 0 do
    begin
    if abs(a) mod 10 > 5 then
      s := s + a;
    a := abs(a);
    if (a > 9) and (a < 100) then
      k := k + 1;
    read(a);
    end;
writeln('k=',k,', s=',s)
end.

{2}

var
n,i,p,a: integer;
begin
read(n);
p := 1;
for i := 1 to n do
    begin
    read(a);
    if (a > 0) and (a mod 3 = 0) then
      p := p * a;
    end;
writeln('p=',p)
end.

{3}

var
n,a,i,k,s: integer;
begin
read(n);
k := 0; s := 0;
for i := 1 to n do
    begin
    read(a);
    if a > 0 then
      begin
      s := s + a;
      k := k + 1;
      end;
    end;
if k = 0 then k := 1;
writeln('s=',s/k)
end.