Информатика
Информатика, 16.10.2019 19:46, KOROVasa

Вопрос/Задача:

40 составьте блок схему дано целое число n (> 0) используя операции деления нацело и взятия остатка от деления, найти количество и сумму его цифр (n=63) program n_18; var n, sum, q: integer; begin write (' n = '); readln (n); writeln; q: = 0; sum: =0; while n> 0 do begin inc (q); sum: = sum + n mod 10; n: = n div 10; end; writeln ('количество цифр: ' , q); writeln (' сумма цифр: 'sum); end.

Ответы на вопрос

Ответ
Ответ разместил: Гость

program xxx;

      var i, x, s : integer;

begin

  write('введите число х=');

  readln(x);

  s: =0

  i: =1

  while i < =x do

      begin

          s: =s+i;

          i: =i+2

      end;

  write('сумма нечетных чисел ='; s);  

  readln

end.

Ответ
Ответ разместил: Гость

var slovo,simval: string; i,k: integer; begin k: =0;   write('введите имя и фамилию '); readln(slovo); write('введите символ '); readln(simval); for i: =1 to length(slovo) do begin if slovo[i]=simval then k: =k+1; if slovo[i]=simval then writeln(i,' '); end; if k> =1 then  writeln('да, встречается ',k,' раз, на позиции ',i)else writeln('нет'); end.

 

 

я немножко перевыполнил) от показывает есть симаол или нет, если есть то сколько раз он входит и на какой  

Ответ
Ответ разместил: Гость

program p_1; var i, n : integer; a, s : real; b : array [1..1000] of real; begin writeln('введите число а'); readln(a); writeln('введите количество значений массива n'); readln(n); write('введите элементы массива b'); for i: =1 to n do readln(b[i]); writeln('первоначальный массив b'); for i: =1 to n do writeln(b[i]); s: =0; for i: =1 to n do if b[i] > a then s: =s+b[i]; writeln('сумма значений =', s); end.

Ответ
Ответ разместил: Гость

program xxx;

var k, d, n : integer;

          pr : boolean;

begin

  writeln('введите число k=');

  readln(k);

  d: =2;

  n: = k div 2;

  pr: =false;

  while (d< =n) and not(pr) do

      if k mod d = o then pr: =true else d: =d+1;

  if pr then writeln (k, '- нет, число не простое') else writeln (k, ' да,число простое');

    readln

end.

Похожие вопросы

Вопросы по предметам

Вопросов на сайте: 13408453