Информатика | студенческий
Program prim ; Var s, t : string ; K : integer ; Begin S : = 'Пришла зима” ; k : = pos('_', s) ; s t : = copy(s, k + 1, 4) ; writeln (t) ; 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.
3. Трамвайный билет имеет шестизначный номер?
3. Трамвайный билет имеет шестизначный номер.
Выяснить, является ли билет "счастливым".
Билет назовем "счастливым", если сумма первых трех цифр равна сумме последних трех цифр.
Примечание.
Так как шестизначное число больше 32767(тип Integer), необходимо номер билета определит как тип Longint( до 10 знаков).
Выдает такую ошибку , в чем проблема?
Выдает такую ошибку , в чем проблема?
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.
.
Что не так?
Что не так?
Как исправить предупреждение ?
Ниже скрин и весь код
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.
Вывод на экран кубов чисел от 13 до 3?
Вывод на экран кубов чисел от 13 до 3.
Var
?
: integer ;
begin
for i : = ?
Downto?
Do
writeln (i * i * i) ;
readln ;
end.
На этой странице сайта вы найдете ответы на вопрос Program prim ; Var s, t : string ; K : integer ; Begin S : = 'Пришла зима” ; k : = pos('_', s) ; s t : = copy(s, k + 1, 4) ; writeln (t) ; end?, относящийся к категории Информатика. Сложность вопроса соответствует базовым знаниям учеников студенческий. Для получения дополнительной информации найдите другие вопросы, относящимися к данной тематике, с помощью поисковой системы. Или сформулируйте новый вопрос: нажмите кнопку вверху страницы, и задайте нужный запрос с помощью ключевых слов, отвечающих вашим критериям. Общайтесь с посетителями страницы, обсуждайте тему. Возможно, их ответы помогут найти нужную информацию.
Ответ :
Программа выведет : Приш
Объяснение :
k = 0 (в строке S : = 'Пришла зима' нет символа '_')
t = Приш (копируем из строки S : = 'Пришла зима' 4 символа начиная с первого).