Определи какое значение будет выведено на экран монитора послевыполнения программы?

Информатика | 10 - 11 классы

Определи какое значение будет выведено на экран монитора после

выполнения программы.

Program winter ;

var g, i : integer ;

begin

i : = 6 ;

g : = - 2 ;

i : = 14 - 2 * g - i ;

g : = i / 3 - g ;

write (g) ;

end.

Ответить на вопрос
Ответы (1)
Lgaak 29 апр. 2024 г., 12:55:44

Ответ : 6

Объяснение :

поменяй integer на real.

Dandyd 10 мар. 2024 г., 04:48:51 | студенческий

ДАЮ 30 БАЛЛОВ?

ДАЮ 30 БАЛЛОВ!

Выдает такую ошибку, что мне надо исправить я не понимаю Fatal : Syntax error, ")" expected but "identifier D" found Program P2 ;

var a, b : integer ; d, s, p : real ;

Begin

write('введите сторону прямоугольника a = ') ;

readln(a) ;

write('введите сторону прямоугольника b = ') ;

readln(b) ; d : = sqrt(sqr(a) + sqr(b)) ;

writeln('диагональ прямоугольника = 'd) ;

s : = a * b ;

writeln('площадь прямоугольника = 's) ;

p : = 2 * (a + b) ; writeln('периметр прямоугольника = 'p) ;

end.

SENSEY11111 23 янв. 2024 г., 18:37:43 | студенческий

Выдает такую ошибку , в чем проблема?

Выдает такую ошибку , в чем проблема?

Source.

Pas(13, 11) Fatal : Syntax error, ")" expected but "(" found

Program P1 ;

var a, b, c : integer ;

s, p : real ;

Begin

write('введите координату a = ') ; readln(a) ; write('введите координату b = ') ;

readln(b) ; write('введите координату c = ') ; readln(c) ; P : = (a + b + c) / 2 ;

writeln('периметр треугольника = ', P : 2 : 2) ;

s : = sqrt(p(p - a) * (p - b) * (p - c)) ; writeln('площадь треугольника = ', s : 2 : 2) ;

end.

EvdokiomovaUna 16 янв. 2024 г., 19:45:36 | 5 - 9 классы

Дана часть программы?

Дана часть программы.

Определите число, которое выведет программа на экран.

Tinkakthiksak 30 янв. 2024 г., 15:04:55 | 5 - 9 классы

Дан фрагмент программы а : = 4 ; б : = а + 4 ; а : = б - а ; write(а, б)какие числа будут выведены на экран компьютера ?

Дан фрагмент программы а : = 4 ; б : = а + 4 ; а : = б - а ; write(а, б)

какие числа будут выведены на экран компьютера ?

Artem4eg2004 26 февр. 2024 г., 22:10:58 | 5 - 9 классы

Вычислите значение а и b на каждом шаге?

Вычислите значение а и b на каждом шаге.

Запишите ответ рядом с каждым

выражением.

Program qq ;

var a, b : integer ;

begin a : = 5 ; b : = a + 2 ; a : = (a + 2) * (b – 3) ; b : = a + 5 ; a : = a - b ; a : = a + 1 ; b : = (a + 6) * 7 ;

end.

Almaz108 2 мар. 2024 г., 13:17:31 | 5 - 9 классы

Определи, что будет выведено в результате работы программы, если ввести число9696 :program prog ;var i, x, j : integer ;const arr : array [1?

Определи, что будет выведено в результате работы программы, если ввести число

96

96 :

program prog ;

var i, x, j : integer ;

const arr : array [1.

10] of integer = (59, 32, 96, 84, 74, 69, 95, 18, 65, 96) ;

begin

j : = 0 ;

readln(x) ;

for i : = 1 to 10 do if arr[i] = x then j : = i ;

write(j) ;

end.

Запиши в поле ответа верное число.

Dkhaliov1 26 мар. 2024 г., 00:12:31 | студенческий

Переведите с Паскаля на c + + :var count, min, i : integer ;begin min : = 20000 ; count : = 0 ; for i : = 7525 to 13486 do begin if i mod 7 = 0 then if i mod 6 < ; > ; 0 then if i mod 9 < ; > ?

Переведите с Паскаля на c + + :

var count, min, i : integer ;

begin min : = 20000 ; count : = 0 ; for i : = 7525 to 13486 do begin if i mod 7 = 0 then if i mod 6 < ; > ; 0 then if i mod 9 < ; > ; 0 then if i mod 14 < ; > ; 0 then if i mod 21 < ; > ; 0 then begin count : = count + 1 ; if i < ; min then min : = i ; end ; end ; writeln(count, min) ;

end.

​.

Nastya1357935 13 янв. 2024 г., 01:13:23 | 5 - 9 классы

Вывод на экран кубов чисел от 13 до 3?

Вывод на экран кубов чисел от 13 до 3.

Var

?

: integer ;

begin

for i : = ?

Downto?

Do

writeln (i * i * i) ;

readln ;

end.

Milana355 10 февр. 2024 г., 09:37:25 | студенческий

Program prim ; Var s, t : string ; K : integer ; Begin S : = 'Пришла зима” ; k : = pos('_', s) ; s t : = copy(s, k + 1, 4) ; writeln (t) ; end?

Program prim ; Var s, t : string ; K : integer ; Begin S : = 'Пришла зима” ; k : = pos('_', s) ; s t : = copy(s, k + 1, 4) ; writeln (t) ; end.

​.

Vladbondar567 7 февр. 2024 г., 19:26:55 | 10 - 11 классы

Дана программа на языке программирования Паскаль?

Дана программа на языке программирования Паскаль.

Запиши данную программу и запусти.

Program z1 ;

var

mas, A : array[1.

10] of real ;

begin

mas[1] : = 14 ;

mas[5] : = 32 ;

mas[9] : = 89 ;

A[1] : = (mas[9] - mas[1]) * mas[5] ;

write(A[1] : 5 : 0) ;

read ;

end.

Ответ : ?

Cerfcerfcerfcerf 8 февр. 2024 г., 01:58:43 | 10 - 11 классы

Что демонстрирует данная операция?

Что демонстрирует данная операция?

Что выйдет в конечном итоге?

Const

N = 25 ;

var

arr : array[1.

N] of integer ;

i : byte ;

sum : integer ;

begin

randomize ;

for i : = 1 to N begin

arr [i] : = random (20) - 5 ;

write (arr[i] : 4) ;

end ;

writeLn ;

sum : = 0 ;

for i : = 1 to N do

if arr [i]> ; 0 then

sum : = sum + arr[i] ;

writeLn (sum 5) ;

end.

​.

На этой странице находится ответ на вопрос Определи какое значение будет выведено на экран монитора послевыполнения программы?, из категории Информатика, соответствующий программе для 10 - 11 классов. Чтобы посмотреть другие ответы воспользуйтесь «умным поиском»: с помощью ключевых слов подберите похожие вопросы и ответы в категории Информатика. Ответ, полностью соответствующий критериям вашего поиска, можно найти с помощью простого интерфейса: нажмите кнопку вверху страницы и сформулируйте вопрос иначе. Обратите внимание на варианты ответов других пользователей, которые можно не только просмотреть, но и прокомментировать.