Информатика | студенческий
Что не так?
Как исправить предупреждение ?
Ниже скрин и весь код
var x, L, M, f : integer ;
begin for f : = 100 to 321565 do begin L : = x - 16 ; M : = x + 16 ; x : = f ; while L < ; > ; M do if L > ; M then L : = L - M else M : = M - L ; if M = 16 then writeln(x) end ;
end.
ДАЮ 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.
Выдает такую ошибку , в чем проблема?
Выдает такую ошибку , в чем проблема?
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.
Как посчитать умножение и степень двух введенных чисел в питоне не используя их знаки в коде( * и * * )разрешено использовать : while, любые знаки кроме * * и * , defнельзя использовать : for, * и * *?
Как посчитать умножение и степень двух введенных чисел в питоне не используя их знаки в коде( * и * * )
разрешено использовать : while, любые знаки кроме * * и * , def
нельзя использовать : for, * и * * * нельзя использовать при умножении * * нельзя использовать при степени.
Люди подскажите где ошибка, пожалуйста?
Люди подскажите где ошибка, пожалуйста.
Это Pascal
когда компилирую это и ввожу числа 10 и 5 ответ выходит 0.
0
program h ;
var a : real ;
b : real ;
c : real ;
begin
a : = b + c ;
WriteLn('Введите числа, которые необходимо сложить : ') ;
readln(b) ;
readln(c) ;
Writeln('Ответ : ', a) ;
end.
В результате выполнения программы переменной y присвоено значение 10?
В результате выполнения программы переменной y присвоено значение 10.
Чему равно значение переменной x?
If x < ; 2018 then y : = - 10
else if x > ; 2018 then y : = 0 else y : = 10 ;
Вычислите значение а и 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.
Какое число стояло вместо * (звёздочки в первой строке), если программа напечатала 9 10?
Какое число стояло вместо * (звёздочки в первой строке), если программа напечатала 9 10?
Pascal Python у = 7 x : = * ; у : = 7 ; if xay then x : = y + 1 else 1 x < ; у : x = y + 1 else : у = х + 1 ; write(x, , , y) ; ' І у = х + 1 print(x, y).
Определи, что будет выведено в результате работы программы, если ввести число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.
Запиши в поле ответа верное число.
Информатика?
Информатика!
Помогите( ( несколько ответов)
К коду относятся :
1) штрих - код
2) таблица символов
3) QR - код
4) алфавит.
Переведите с Паскаля на 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.
.
Вопрос Что не так?, расположенный на этой странице сайта, относится к категории Информатика и соответствует программе для студенческий. Если ответ не удовлетворяет в полной мере, найдите с помощью автоматического поиска похожие вопросы, из этой же категории, или сформулируйте вопрос по-своему. Для этого ключевые фразы введите в строку поиска, нажав на кнопку, расположенную вверху страницы. Воспользуйтесь также подсказками посетителей, оставившими комментарии под вопросом.
Ответ :
Переменную объявить в цикле
Объяснение :
Пример
for i : integer : = 1 to 9 do   ;   ; Print(i) ;   ; / / Здесь переменная i не доступна!
  ; for var i : = 9 downto 1 do / / описание с автоопределением типа   ;   ; Print(i) ;
У Вас тоже самое сделайте - уберите описания из глобального описания и объявите в циклах
var x, L, M : integer ;
for f : integer : = 100 to 321565 do.