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

Tanyasushko 19 окт. 2020 г., 06:46:34

Ответ :

1) 35

У нас написано, что s : = 0

От k = 14 до 18 прибавляем каждый раз + 7

s 7 14 21 28 35

k 14 15 16 17 18

2) 132

Тут такая же схема s : = 0

От k = 1 до 11 прибавляем к s + 12

s 12 24 36 48 60 72 84 96 108 120 132

k 1 2 3 4 5 6 7 8 9 10 11

3) 45

Тут s = 100

От k = 0 до 10 мы отнимаем от s - 5

s 95 90 85 80 75 70 65 60 55 50 45

k 1 2 3 4 5 6 7 8 9 10.

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.

Wasy05091996 14 мар. 2020 г., 19:06:37 | 10 - 11 классы

Var s, k : integer ; begin s : = 1 ; for k : = 1 to 7 do s : = s + k ; writeln (s) ; end?

Var s, k : integer ; begin s : = 1 ; for k : = 1 to 7 do s : = s + k ; writeln (s) ; end.

Valeriykot2016 8 мая 2020 г., 23:26:20 | 5 - 9 классы

Что делать?

Что делать?

Program n1 ; Type Test = class Private Var a : integer : = 10 ; Public Var b : integer : = 15 ; End ; Begin Var cl : Test : = new Test() ; Writeln(cl.

A) ; / / должно не выполняться но паскалю пофиг Writeln(cl.

B) / / выпонится End.

Yasinsemik 1 янв. 2020 г., 14:08:23 | 5 - 9 классы

Какое значение будет принемать значение Y после выполнения фрагментов программы : 1?

Какое значение будет принемать значение Y после выполнения фрагментов программы : 1.

Var x, y : INTEGER ; BEGIN y : = 0 ; for x : = 1 to 9 do y : = y + x ; writeln(y = , y) ; END.

2. var x, y : INTEGER ; BEGIN y : = 0 ; for x : = 10 downto 5 do y : = y + 1 writeln(y = , y) ; END 3.

Var x, y : INTEGER ; BEGIN y : = 1 ; x : = 15 ; while x> ; 5 do begin x : = x - 3 ; y : = y * x ; end ; writeln(y = , y) END.

4. var x, y : INTEGER ; begin y : = 1 ; x : = 10 ; repeat y : = y * x + x ; x : = x - 2 ; until x< ; 0 ; writeln(y = , y) ; end.

Пожалуйста напишите подробное решение и как получаются ответы.

Йчуметнлщдшщгапм5689 22 авг. 2020 г., 00:02:41 | 5 - 9 классы

Найдите значение переменной А после выполнения программы VAR A : INTEGER BEGIN A : = SQRT(16) : END?

Найдите значение переменной А после выполнения программы VAR A : INTEGER BEGIN A : = SQRT(16) : END.

TasyaSnow 22 дек. 2020 г., 12:59:22 | 5 - 9 классы

Укажите результат выполнения программы var a, b : integer procedure proc(var a : integer ; b : integer) begin b : = 4 ; a : = 6 ; b : = a + b ; end ; begin a : = 2 ; b : = 3 ; proc(a, b) ; writeln(a, ?

Укажите результат выполнения программы var a, b : integer procedure proc(var a : integer ; b : integer) begin b : = 4 ; a : = 6 ; b : = a + b ; end ; begin a : = 2 ; b : = 3 ; proc(a, b) ; writeln(a, ' ', b) ; 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) ; что то неправильно говорят массив.

Spasibo123 5 февр. 2020 г., 18:45:06 | 10 - 11 классы

Что напечатает данная программа : Var x : = Integer Begin x : = 2 WriteLn('x + 1 = ', x) End?

Что напечатает данная программа : Var x : = Integer Begin x : = 2 WriteLn('x + 1 = ', x) End.

Djekson2014 30 дек. 2020 г., 03:36:50 | 5 - 9 классы

Var s, k : integer ; Begin s : = 100 ; for k : = 2 to 7do s : = s + 1 ; writeln(s) ; End?

Var s, k : integer ; Begin s : = 100 ; for k : = 2 to 7do s : = s + 1 ; writeln(s) ; End.

Vikalove07012000 25 дек. 2020 г., 12:19:12 | 5 - 9 классы

4. Определите результат работы программ :1)var а, b : integer ;begina : = 26 mod 11 ;b : = 3 ;b : = 6 + a * b ;a : = b / 3 * a ;writeln(а) ;end?

4. Определите результат работы программ :

1)

var а, b : integer ;

begin

a : = 26 mod 11 ;

b : = 3 ;

b : = 6 + a * b ;

a : = b / 3 * a ;

writeln(а) ;

end.

2)

var s, k : integer ;

begin

s : = 0 ;

for k : = 12 to 15 do s : = s + 13 ;

writeln(s) ;

end.