Операторы цикла итереационного типа

@Shy777 · Регистрация: 08.06.2011

Author24 — интернет-сервис помощи студентам

Задача 1.

Дано натуральное число:
а) верно ли, что сумма его цифр меньше А
б) верно ли, что произведение его цифр больше В

Задача 2.

Дана непустая последовательность целых чисел, оканчивающаяся нулём. Найти:
а) сумму всех чисел последовательности
б) количество всех чисел последовательности.

Помогите пожалуйста решить, буду признателен

@Zhexon · 03.11.2011, 21:01

1.

Pascal

  var
    x,c,pr : longint;
    a,b,sum : integer;
  Begin
    write('wwedite chislo= '); readln(x);
    write('wwedite A,B : '); Readln(a,b);
      c:=x; sum:=0; pr:=1;
      while c>0 do begin
        sum:=sum+(c mod 10);
        pr := pr*(c mod 10);
        c:=c div 10;
      end;
    if sum<a then writeln('a) werno') else writeln('a) ne werno');
    if pr>b then writeln('b) werno') else writeln('b) ne werno');
    readln;
  End.

2.

Pascal

  var
    a,sum,kol : Integer;
  Begin
    sum:=0; kol:=0; a:=0;
    writeln('Вводите последовательность по одному элементу, последний 0 : ');
    repeat
      readln(a);
      sum:=sum+a;
      inc(kol);
    until a=0;
    writeln('Sum=',sum,'  kol-wo =',kol);
    readln;
  End.

@Shy777 2 / 2 / 1 Регистрация: 08.06.2011 Сообщений: 45
		1
	Операторы цикла итереационного типа 03.11.2011, 17:39. Показов 995. Ответов 1 Метки нет (Все метки) Задача 1. Дано натуральное число: а) верно ли, что сумма его цифр меньше А б) верно ли, что произведение его цифр больше В Задача 2. Дана непустая последовательность целых чисел, оканчивающаяся нулём. Найти: а) сумму всех чисел последовательности б) количество всех чисел последовательности. Помогите пожалуйста решить, буду признателен 0

	03.11.2011, 21:01

Операторы цикла итереационного типа

Решение