Срочно требуется помощь?

Dimasuper2010 8 мар. 2020 г., 00:41:10

Первые две, так как третяя не понятная, вторая может быть не верно понята

Sub num2() s = 0 Dim A k = CInt(InputBox("K = ")) n = CInt(InputBox("N = ")) Redim A(n - 1) for i = 0 to n - 1 a(i) = CInt(InputBox("A(" & ; i & ; ") = ")) if a(i) MOD k = 0 then s = s + a(i) next MsgBox s

End Sub

Sub num1() i = 0 e = CDbl(InputBox("E = ")) Do while i < ; = e i = i + sqr(2) Loop MsgBox "i = " & ; i

End Sub.

Komarik21 24 июл. 2020 г., 19:43:53 | 10 - 11 классы

Где ошибка?

Где ошибка?

Const n = 10 ; type TMas = array[1.

N] of integer ; var mas1 : TMas ; procedure ImputMas1(var masTMas : integer) ; var i : integer ; begin for i : = 1 to 10 do begin mas1[i] : = random(n) ; Write(mas1[i] : 3) ; end ; end.

Прыгайзайка 17 янв. 2020 г., 13:47:28 | 5 - 9 классы

Заполните пропуски в программе ввода и вывода 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.

Nastenka1997 9 авг. 2020 г., 08:01:22 | 5 - 9 классы

Program mar ; uses crt ; var F, k : integer ; S : real ; begin clrscr ; F : = 1 ; S : = 1 ; for k : = 1 to 3 do begin F : = F * k ; S : = S * (2 * F) / (k * k * k * k + k) ; writeln('k = ', k ) ; read?

Program mar ; uses crt ; var F, k : integer ; S : real ; begin clrscr ; F : = 1 ; S : = 1 ; for k : = 1 to 3 do begin F : = F * k ; S : = S * (2 * F) / (k * k * k * k + k) ; writeln('k = ', k ) ; readkey ; end.

Найдите ошибку, пожалуйста, программа не идет.

Kerrigan54 3 авг. 2020 г., 16:55:50 | 10 - 11 классы

Задача по двумерному массиву?

Задача по двумерному массиву.

Создать новый одномерный массив из элементов, стоящих под главной диагональю.

Вот шапочка массива : uses crt ; type mas = array [1.

8, 1.

8] of integer ; var M : mas ; i, j : integer ; begin randomize ; for i : = 1 to 8 do begin for j : = 1 to 8 do begin M[i, j] : = random(190) - 95 ; write(M[i, j] : 4) ; end ; writeln ; end ;

Masha22081999 21 февр. 2020 г., 18:27:28 | 10 - 11 классы

Много баллов(78) за блок - схему?

Много баллов(78) за блок - схему.

Завтра курсовую сдавать : ( программа на паскале uses crt ; type mas = array [1.

100] of integer ; var b : mas ; p, i, n : integer ; procedure vvod (x : mas ; k : integer) ; var i, p : integer ; begin for i : = 1 to n do begin write('Vvedite chislo : ') ; readln(x[i]) ; end ; for i : = 1 to n do write(x[i] : 3) ; for i : = n downto 1 do if x[i]< ; 0 then p : = i ; writeln ; write(' = ', x[p - 1]) ; writeln ; readln ; end ; begin clrscr ; write('Vvedite kol - vo chisel : ') ; readln((n)) ; vvod (b, n) ; readln ; end.

Make96th 18 янв. 2020 г., 03:04:39 | 10 - 11 классы

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) ; что то неправильно говорят массив.

Di13026 18 мар. 2020 г., 02:58:32 | 10 - 11 классы

Нужна помощь в переводе 3 - х программ с языка Pascal в VBA Program num2 ; Uses crt ; Var a : array [1?

Нужна помощь в переводе 3 - х программ с языка 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.

Pautovadarja11 27 нояб. 2020 г., 12:52:33 | 5 - 9 классы

Дана программа : program primer3 ; uses crt ; var x : integer ; begin clrscr ; readin (x) ; if x mod 2 = 0 then wtiteln('да') else wtiteln ('нет') При каком значении x будет получен ответ 'ДА'?

Дана программа : program primer3 ; uses crt ; var x : integer ; begin clrscr ; readin (x) ; if x mod 2 = 0 then wtiteln('да') else wtiteln ('нет') При каком значении x будет получен ответ 'ДА'?

Ряжка 25 дек. 2020 г., 18:21:48 | 5 - 9 классы

Помогите пожалуйста, cрочно?

Помогите пожалуйста, cрочно!

Составить блок - схему.

Program primer6 ;

uses crt ;

x : integer ;

begin

clrscr ;

readln(x) ;

if x mod 2 = 0 then writeln ('да')

else writeln ('нет')

end.

Bk25 19 окт. 2020 г., 06:46:31 | 5 - 9 классы

Определить s : 1) Var s, k : integer ; Begin s : = 0 ; for k : = 14 to 18 do s : = s + 7 ; writeln(s) ; End?

Определить s : 1) Var s, k : integer ; Begin s : = 0 ; for k : = 14 to 18 do s : = s + 7 ; writeln(s) ; End.

2) Var s, k : integer ; Begin s : = 0 ; for k : = 1 to 11 do s : = s + 12 ; write(s) ; End.

3) var s, k : integer ; begin s : = 100 ; for k : = 0 to 10 do s : = s - 5 ; writeln (s) ; end.