Информатика | 5 - 9 классы
Вывод на экран кубов чисел от 13 до 3.
Var
?
: integer ;
begin
for i : = ?
Downto?
Do
writeln (i * i * i) ;
readln ;
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.
Pascal доработать программуprogram DemoWriteln ; {Программа вычисляет и выводит площадь прямоугольника}var A, B, S : integer ; {A, B – длина сторон, S – площадь}begin A : = 8 ; {А присвоить 8} B : = 4?
Pascal доработать программу
program DemoWriteln ; {Программа вычисляет и выводит площадь прямоугольника}
var A, B, S : integer ; {A, B – длина сторон, S – площадь}
begin A : = 8 ; {А присвоить 8} B : = 4 ; {B присвоить 4} S : = A * B ; writeln(' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ') ; {всего 40} writeln(' : Сторона A : Сторона B : Площадь : Периметр : ') ; writeln(' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ') ; writeln(' : ', A : 7, B : 11, S : 11, ' : ' : 5) ; writeln(' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ') ; readln ; readln end.
После расчета площади прямоугольника добавить вычисление периметра прямоугольника ;
вместо операторов присвоения значений величинам A и B, выполнить приглашение для ввода и ввод значений этих переменных.
Приглашение для ввода оформляется следующим образом :
writeln (‘Введите A’) ;
Ввод значений оформляется оператором readln ;
составить блок - схему алгоритма, который реализован данной программой с учетом внесенных изменений.
Люди подскажите где ошибка, пожалуйста?
Люди подскажите где ошибка, пожалуйста.
Это 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.
Вычислите значение а и 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.
Определи, что будет выведено в результате работы программы, если ввести число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.
Запиши в поле ответа верное число.
Переведите с Паскаля на 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.
.
Вывести на экран n первых чисел Фибоначчи python?
Вывести на экран n первых чисел Фибоначчи python.
Что не так?
Что не так?
Как исправить предупреждение ?
Ниже скрин и весь код
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.
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.
.
Перед вами страница с вопросом Вывод на экран кубов чисел от 13 до 3?, который относится к категории Информатика. Уровень сложности соответствует учебной программе для учащихся 5 - 9 классов. Здесь вы найдете не только правильный ответ, но и сможете ознакомиться с вариантами пользователей, а также обсудить тему и выбрать подходящую версию. Если среди найденных ответов не окажется варианта, полностью раскрывающего тему, воспользуйтесь «умным поиском», который откроет все похожие ответы, или создайте собственный вопрос, нажав кнопку в верхней части страницы.
Ответ :
var i : integer ;
begin
for i : = 13 downto 3 do writeln (i * i * i) ;
readln ;
end.
Объяснение :
Переменная указана ниже (for i : = ?
), просто переносим её в раздел объявления переменных (var   ; ?
: integer ; )
Цикл for от большего (13) к (downto) меньшему (3) с шагом - 1.