Информатика | 5 - 9 классы
9 класс.
Сделайте программу в паскале Ввести натуральное число и определить, какие цифры встречаются несколько раз, если никакие не повторяются вывести : "Цифры не повторяются.
"
У меня получилось ну это не правильно!
Program five ;
var n, m, i, j, k : integer ;
begin
write('Введите число : ') ;
readln(n) ;
for i : = 0 to 9 do
begin
k : = 0 ;
m : = n ;
while m0 do
begin
j : = m mod 10 ;
if j = i then k : = k + 1 ;
m : = m div 10 ;
end ;
writeln('цифра ', i, ' встречается ', k, ' раз') ;
end ;
end.
Var k, s : integer ; begin s : = 0 ; k : = 1 ; while k < ; 11 do begin s : = s + k ; k : = k + 1 ; end ; write(s) ; end?
Var k, s : integer ; begin s : = 0 ; k : = 1 ; while k < ; 11 do begin s : = s + k ; k : = k + 1 ; end ; write(s) ; end.
Определите, что будет напечатано в результате работы следующего фрагмента программы :
Определите, что будет напечатано в результате работы следующего фрагмента программы : var k, s : integer ; begin s : = 3 ; k : = 1 ; while k < ; 25 do begin s : = s + k ; k : = k + 2 ; end ; write(s?
Определите, что будет напечатано в результате работы следующего фрагмента программы : var k, s : integer ; begin s : = 3 ; k : = 1 ; while k < ; 25 do begin s : = s + k ; k : = k + 2 ; end ; write(s) ; end.
Определите, что будет напечатано в результате работы следующего фрагмента программы : var k, s : integer ; begin s : = 0 ; k : = 1 ; while k < ; 11 do begin s : = s + k ; k : = k + 1 ; end ; write(s?
Определите, что будет напечатано в результате работы следующего фрагмента программы : var k, s : integer ; begin s : = 0 ; k : = 1 ; while k < ; 11 do begin s : = s + k ; k : = k + 1 ; end ; write(s) ; end.
Помогите Срочно?
Помогите Срочно!
Чему будет равен результат выполнения программы, если ввести значения для a = 2468?
Program c22 ; var a, b : integer ; k : integer ; begin K : = 0 ; readln(a) ; while (a< ; > ; 0) do begin b : = a mod 10 ; if b mod 2 = 0 then inc(k) ; a : = a div 10 ; end ; writeln(k) ; end.
A) 9 Б)3 В)0 Г)4.
Чему будет равен результат выполнения программы, если ввести значения для a = 169?
Чему будет равен результат выполнения программы, если ввести значения для a = 169?
Program c22 ; var a : integer ; k : integer ; begin k : = 0 ; readln(a) ; while (a< ; > ; 0) do begin a : = a div 10 ; inc(k) ; end ; writeln(k) ; end.
А) 9 Б) 3 В) 0 Г) 1.
Помогитеvar k, s : integer ;begins : = 0k : = 0while k < ; 30 do begink : = k + 3 ;s : = s + k ;end ;write(s) ;end?
Помогите
var k, s : integer ;
begin
s : = 0
k : = 0
while k < ; 30 do begin
k : = k + 3 ;
s : = s + k ;
end ;
write(s) ;
end.
Определите, что будет напечатано в результате работы следующего фрагмента программы : var k, s : integer ; begin s : = 2 ; k : = 2 ; while k < ; 50 do begin s : = s + k ; k : = k + 1 ; end ; write(s?
Определите, что будет напечатано в результате работы следующего фрагмента программы : var k, s : integer ; begin s : = 2 ; k : = 2 ; while k < ; 50 do begin s : = s + k ; k : = k + 1 ; end ; write(s) ; end.
Исправить ошибку Помогите исправить ошибку в программе Вот задание : Разработать программу поиска и печати всех чисел - близнецов, принадлежащих заданному диапазону [N, M ]?
Исправить ошибку Помогите исправить ошибку в программе Вот задание : Разработать программу поиска и печати всех чисел - близнецов, принадлежащих заданному диапазону [N, M ].
Вот программа : program yyy ; function prost(var x : integer) : boolean ; var k, i : integer ; t : boolean ; begin t : = true ; k : = 0 ; for i : = 1 to x do begin if x mod i = 0 then k : = k + 1 ; end ; if k = 2 then t : = true else t : = false ; prost : = t end ; var n, m, i : integer ; begin writeln('1') ; readln(n) ; writeln('2') ; readln(m) ; for i : = n to m - 1 do begin if prost(i) and prost(i + 2) then writeln(i , (i + 2)) ; end ; end.
Определите, что будет напечатано в результате работы следующего фрагмента программы : Var k, s : integer ; begin s : = 0 ; k : = 0 ; while k< ; 30 do begin k : = k + 3 ; s : = s + k ; end ; write(s)?
Определите, что будет напечатано в результате работы следующего фрагмента программы : Var k, s : integer ; begin s : = 0 ; k : = 0 ; while k< ; 30 do begin k : = k + 3 ; s : = s + k ; end ; write(s) ; end.
Помогите пожалуйста написать в С + + ?
Помогите пожалуйста написать в С + + .
Program Matrix7 ; var a : array [1.
10, 1.
10] of integer ; M, N, K, i, j : Integer ; begin Write('N : ') ; Readln(N) ; Write('M : ') ; Readln(M) ; Write('K : ') ; Readln(K) ; for i : = 1 to M do begin writeln(i, ' : ') ; for j : = 1 to N do begin Write(j, ' : ') ; Read(a[i, j]) ; end ; end ; for j : = 1 to N do begin Write(' : ', a[K, j]) ; end ; writeln(' : ') ; end.
Дана матрица размера М и N и целое число К ( 1≤ К ≤ М).
Вывести элементы К - й строки данной матрицы.
На этой странице вы найдете ответ на вопрос 9 класс?. Вопрос соответствует категории Информатика и уровню подготовки учащихся 5 - 9 классов классов. Если ответ полностью не удовлетворяет критериям поиска, ниже можно ознакомиться с вариантами ответов других посетителей страницы или обсудить с ними интересующую тему. Здесь также можно воспользоваться «умным поиском», который покажет аналогичные вопросы в этой категории. Если ни один из предложенных ответов не подходит, попробуйте самостоятельно сформулировать вопрос иначе, нажав кнопку вверху страницы.
Program nd ;
var n, n1, d, d1 : longint ;
k, a, c : integer ; b : boolean ;
begin write('Введите число : ') ; readln(n) ; b : = false ; k : = 0 ; while (n>9) and (not b) do begin d : = n mod 10 ; n1 : = n div 10 ; while (n1>0) and (not b) do begin d1 : = n1 mod 10 ; b : = d1 = d ; n1 : = n1 div 10 ; end ; n : = n div 10 ; end ; while n0 do begin c : = n mod 10 ; if c = d1 then k : = k + 1 ; n : = n div 10 ;
end ; if b then writeln('в этом числе повторяется ', k + 1, ' раз цифра ', d1) else writeln('цифры не повторяются') ;
end.