Информатика | 5 - 9 классы
Program prim1 ;
uses CRT ;
var
a, i : integer ;
begin
read(a) ;
i : = 1 ;
while i< ; 10 do
begin
i : = i + 1 ;
write(a) ;
end ;
end.
Это программа для того чтобы вывести 10 одинаковых чисел на экран.
Помогите пожалуйста переделать так, чтобы можно было вывести слово ПРИВЕТ 10 раз.
Программа pascalABC.
Набрать в программе Pascal программу исправив ошибки : PROGRAM 123 ; USES CRT ; VAR A, S : INTEDGER ; BEGIN WRITELN ( 'ВВЕДИТЕ ДВА ЧИСЛА ') ; READ(Q, W) ; F : = Q / W ; WRITELN ( 'РЕЗУЛЬТАТ ' , F) ; R?
Набрать в программе Pascal программу исправив ошибки : PROGRAM 123 ; USES CRT ; VAR A, S : INTEDGER ; BEGIN WRITELN ( 'ВВЕДИТЕ ДВА ЧИСЛА ') ; READ(Q, W) ; F : = Q / W ; WRITELN ( 'РЕЗУЛЬТАТ ' , F) ; READLN ; END.
Заполните пропуски в программе ввода и вывода 10 целочисленных элементов массива, заданных случайным образом на промежутке [20 ; 40] : Program gh ; var A : array[ 1?
Заполните пропуски в программе ввода и вывода 10 целочисленных элементов массива, заданных случайным образом на промежутке [20 ; 40] : Program gh ; var A : array[ 1.
___] of integer ; i : integer ; begin for i : = 1 to __ do begin A[i] : = random(___) + ____ ; write(____) ; end ; end.
Прошу вас, помогите?
Прошу вас, помогите!
Решается оценка!
Найдите ошибки в программе 1)Program z1 ; var a : integer ; begin a : = 10 ; while a< ; 5 do writeln(a) ; a : = a + 1 ; End.
2)Program z2 ; var a, s : integer ; begin a : = 1 ; s : = 0 ; while a< ; 10 do begin s : = s + a / 2 ; end ; writeln(s) ; end.
Чему будет равен результат выполнения программы, если ввести значения для 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 A : INTEGER BEGIN A : = SQRT(16) : END?
Найдите значение переменной А после выполнения программы VAR A : INTEGER BEGIN A : = SQRT(16) : END.
Помогите пожалуйста?
Помогите пожалуйста!
Что выводит на экран следующая программа?
Program P120 ; var i : ^ integer ; begin new (i) ; i ^ : = 1 ; new(i) ; i ^ : = 2 ; new(i) ; i ^ = 3 ; writeln (i ^ ) ; readln ; end.
Помогите исправить программу?
Помогите исправить программу.
Она должна вычислять среднее арифметическое всех чисел в массиве меньших 50.
Вот программа :
Program Zadacha ;
Uses crt ;
var a : array[1.
1000] of integer ;
c, i, n, s : integer ;
s1 : real ;
begin ;
clrscr ;
writeln("Введите размерность массива) ;
readln(n) ;
writeln('Введите массив') ;
for i : = 1 to n do
begin a[i] : = random(100) ;
if a[i]< ; 50 then begin inc(c) ; s : = s + a[i] ; end ; s : = s + a[i] ; s1 : = s / N ;
writeln('Массив A : ') ;
for i : = 1 to N do write(a[i] : 4) ;
writeln ;
writeln('Среднее арифметическое равно = ', s1) ;
end ;
end.
Срочно требуется помощь?
Срочно требуется помощь!
Нужно перевести программу из Pascal в VBA / Program num2 ; Uses crt ; Var a : array [1.
100] of integer ; i, k, n, s : integer ; Begin clrscr ; s : = 0 ; write('K = ') ; readln(k) ; write('N = ') ; readln(n) ; for i : = 1 to n do readln(a[i]) ; for i : = 1 to n do if (a[i] MOD k) = 0 then s : = s + a[i] ; writeln('S = ', s) ; End.
Program num1 ; Uses crt ; Var i, E : integer ; Begin clrscr ; i : = 0 ; write('E = ') ; readln(E) ; while i begin i : = i + sqrt(2) ; end ; writeln('I = ', i) ; End.
Program num3 ; Uses crt ; Var A, T : array [1.
100, 1.
100] of integer ; i, j, x : integer ; Begin clrscr ; for i : = 1 to 100 do for j : = 1 to 100 do A[i, j] : = random(10) ; for i : = 1 to 100 do for j : = i + 1 to 100 do T[i, j] : = A[i, j] ; for i : = 1 to 100 do for j : = 1 to 100 do begin x : = 0, 5 * ((A[i, j] ^ 2) + (A[i, j] ^ T[i, j])) ; writeln('X[', i, ', ', j, '] = ', x) ; end ; End.
USES Crt ; const N = 10 ; VAR A : array[1?
USES Crt ; const N = 10 ; VAR A : array[1.
N] of integer ; k : integer ; Function FUN : integer ; Var i, M : integer ; Begin writeln('Введите число M = ') ; readln(M) ; k : = 0 ; for i : = 1 to N do if A[i] FUN : = k ; End ; Procedure SOSTMAS ; Var i : integer ; Begin for i : = 1 to N do begin A[i] : = Random(199) - 100 ; write(A[i] : 5) ; end ; Writeln ; end ; BEGIN SOSTMAS ; Writeln(FUN) ; что то неправильно говорят массив.
Здравствуйте, помогите пожалуйста найти ошибку program name ; uses crt ; var a : integer ; begin writeln ('Введите время = ') ; readln (a) ; if (a)then ; begin writeln ('ночь') ; end ; / / / if a = 3 ?
Здравствуйте, помогите пожалуйста найти ошибку program name ; uses crt ; var a : integer ; begin writeln ('Введите время = ') ; readln (a) ; if (a)then ; begin writeln ('ночь') ; end ; / / / if a = 3 then begin writeln ('утро') ; readln (d) ; if a = 12 then begin writeln ('день') ; end ; if a = 16 then begin writeln ('вечер') ; / / / if a = 21 then begin writeln ('ночь') ; / / / end ; end ;
На этой странице сайта вы найдете ответы на вопрос Program prim1 ;uses CRT ;vara, i : integer ;beginread(a) ;i : = 1 ;while i< ; 10 dobegini : = i + 1 ;write(a) ;end ;end?, относящийся к категории Информатика. Сложность вопроса соответствует базовым знаниям учеников 5 - 9 классов. Для получения дополнительной информации найдите другие вопросы, относящимися к данной тематике, с помощью поисковой системы. Или сформулируйте новый вопрос: нажмите кнопку вверху страницы, и задайте нужный запрос с помощью ключевых слов, отвечающих вашим критериям. Общайтесь с посетителями страницы, обсуждайте тему. Возможно, их ответы помогут найти нужную информацию.
Program prim1 ;
uses CRT ;
var
i : integer ;
a : string ;
begin
read(a) ;
i : = 1 ;
while i< ; 10 do
begin
i : = i + 1 ;
writeln(a) ;
end ;
end.
Или
program prim1 ;
uses CRT ;
var
i : integer ;
begin
i : = 1 ;
while i< ; 10 do
begin
i : = i + 1 ;
writeln('ПРИВЕТ') ;
end ;
end.