Регистрация
mn2281488
04.05.2021 23:42
Информатика
Есть ответ 👍

Склавиатуры вводится трехзначное число. проверить, есть ли среди его цифр цифры кратные трем. если есть, товыдать значение этих цифр на экран. если нет, то выдать на экран сообщение: "таких цифр нет".

276
296
Посмотреть ответы 2

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

Jezzyfeed1
Jezzyfeed1
4,6(97 оценок)
Var   i,d,n,k: integer; begin   write('введите трехзначное натуральное число: ');   read(n);   k: =0;   for i: =1 to 3 do begin       d: =n mod 10;       if d mod 3=0 then begin           inc(k);           write(d,' ')           end;       n: =n div 10       end;   if k> 0 then write('- цифры, кратные трем')   else write('таких цифр нет') end. примеры введите трехзначное натуральное число: 569 9 6 - цифры, кратные трем введите трехзначное натуральное число: 184 таких цифр нет замечание: в программе считается, что цифра 0 также кратна трем (как и всем другим числам), поскольку остаток от деления от нуля на 3 равен 0. если это не так, то замените условие d mod 3 = 0 на (d mod 3 = 0) and (d> 0)
alievvusal57vusal
alievvusal57vusal
4,4(41 оценок)
Ну, в общем, примерно program maximus; const max_count = 3; var a : array of array of byte; i, j, k, l, m, n, t : byte; max : array[1..max_count] of byte; ch : char; begin write('введите количество строк: '); readln(n); write('введите количество столбцов: '); readln(m); setlength(a, n); for i: =0 to n-1 do setlength(a[i], m); write('заполнить матрицу случайными числами (y/n): '); readln(ch); if ((ch='y') or (ch='y')) then begin randomize; for i: =0 to n-1 do begin for j: =0 to m-1 do begin a[i][j] : = random(251); write(a[i][j]: 4, ' '); end; writeln; end; end else begin for i: =0 to n-1 do begin writeln('заполните строку ', i+1); for j: =0 to m-1 do readln(a[i][j]); end; for i: =0 to n-1 do begin for j: =0 to m-1 do write(a[i][j]: 4, ' '); writeln; end; end; t : =255; for k: =1 to max_count do begin if k> 1 then t: =max[k-1]; l : = a[0][0]; for i: =0 to n-1 do for j: =0 to m-1 do if ((a[i][j] > l) and (a[i][j] < t)) then l: =a[i][j]; max[k] : = l; end; writeln; write(max_count, ' максимальных элемента: '); for i: =1 to max_count do write(max[i], ' '); writeln; end.

Популярно: Информатика