Информатика | 10 - 11 классы
Program a2 ;
var a, b, c, min : real ;
begin
writeln('Введите три числа') ;
readln(a, b, c) ;
min : = a ;
if b
if c
writeln('min = ', min)
end.
КАК РЕШАТЬ?
А)а = 10, b = 5 и с = 1
Б)а = 10, b = 5 и с = 7
В)а = 2, b = 10, с = 5.
Помогите найти ошибку (Информатика, Паскаль)?
Помогите найти ошибку (Информатика, Паскаль).
Var s, k, a : integer ;
Begin
s : = 0 ;
k : = 0 ;
Read(a) ;
while a0 do
Begin
if a mod 8 = 0 then
Begin
s : = s + a ;
k : = k + 1 ;
end ;
Readln(a) ;
end ;
var y : real ;
begin
y : = s / k ;
Read(s) ;
if s>0 then
Writeln(y)
else
Writeln('NO')
end ;
end.
Какие операторы не правильные?
Какие операторы не правильные?
(В паскале) Преобразуйте в правильную программу.
Program qq ; var a, b : integer ; x, y : real ; begin a : = 5 ; 10 : = x ; y : = 7, 8 ; b : = 2.
5 ; x : = 2 * (a + y) ; a : = b + x ; end.
Перевод кода паскаль в c + +2)var i, sum : integer ;n : real ;beginsum : = 0 ;for i : = 1 to 15 dobeginreadln(n) ;if n = trunc(n) then sum : = sum + 1 ;end ;writeln(sum) ;end?
Перевод кода паскаль в c + +
2)var i, sum : integer ;
n : real ;
begin
sum : = 0 ;
for i : = 1 to 15 do
begin
readln(n) ;
if n = trunc(n) then sum : = sum + 1 ;
end ;
writeln(sum) ;
end.
2
Var
a1, b2, c, d : integer ;
begin
write('Введите числа через пробел : ') ;
read(a1) ;
for d : = 2 to 10 do begin
read(b2) ;
if b2>a1 then inc(c) ;
a1 : = b2 ;
end ;
if c = 9 then writeln('Да') else writeln('Нет') ;
end.
Ребят, нужна пооомощь : с Найти max из : min(А, В, С) и min(А1, В1, С1)?
Ребят, нужна пооомощь : с Найти max из : min(А, В, С) и min(А1, В1, С1).
Нужна блок - схема и программа(или хотя бы что - нибудь одно из этого) : 0.
Var n, a, b, c, d, f : integer ;beginwrite('Введите трёхзначное число n = ', n) ;a : = n del 100 ;b : = n mod 10 ;c : = n del 10 ;a + b + c = s ;if(s> = 10)(s?
Var n, a, b, c, d, f : integer ;
begin
write('Введите трёхзначное число n = ', n) ;
a : = n del 100 ;
b : = n mod 10 ;
c : = n del 10 ;
a + b + c = s ;
if(s> = 10)(s.
СРОЧНО?
СРОЧНО!
Помогите исправить ошибки в программе
program n12 ; var x : y ; real :
begin write ; ('Введите x и y') ; readln(x и y) ; if x.
Program Dvch ;var N : integer ;beginwriteln('Введите число N') ;readln(N) ;If (N>9) and (N?
Program Dvch ;
var N : integer ;
begin
writeln('Введите число N') ;
readln(N) ;
If (N>9) and (N.
СрочноProgram sredarifment ;Var a : array[1?
Срочно
Program sredarifment ;
Var a : array[1.
10] of real ;
i, k : integer ;
C, S, sred : real ;
Begin
For i : = 1 to 10 do begin write ('a[', i, '] = ') ; readln (a[i]) ; end ;
write('введите C : ') ; readln (C) ;
For i : = 1 to 10 do begin If a[i]>C then begin S = S + a[i] ; K = K + 1 ; end ; end ;
sred = S / k ;
Writeln('среднее арифметическое чисел, превосходящих ', C, ' равно ', sred) ;
End.
Помогите чтобы программа запускалась.
Выходит что не верно.
Составить блок - схему для программы упорядочивания элементов массива в QBasic?
Составить блок - схему для программы упорядочивания элементов массива в QBasic.
RANDOMIZE TIMER
CLS
INPUT "n = ", n
DIM a(n)
FOR i = 1 TO n PRINT "a" ; INPUT " : ", a(i)
NEXT
FOR i = 1 TO n - 1 min = a(i) : k = i FOR y = i TO n IF a(y) < min THEN min = a(y) : k = y NEXT SWAP a(k), a(i)
NEXT
FOR i = 1 TO n PRINT a(i) ;
NEXT.
Program numb19 ;Var a, b, c, d, e, f, g : integer ;BeginReadln(a) ; if a mod 2 = 0 then Writeln('da')else Writeln('NO') ; if a div 10 then Writeln('2 zn')else Writeln('1 zn') ;end?
Program numb19 ;
Var a, b, c, d, e, f, g : integer ;
Begin
Readln(a) ; if a mod 2 = 0 then Writeln('da')
else Writeln('NO') ; if a div 10 then Writeln('2 zn')
else Writeln('1 zn') ;
end.
В чём ошибка?
На этой странице находится вопрос Program a2 ;var a, b, c, min : real ;beginwriteln('Введите три числа') ;readln(a, b, c) ;min : = a ;if bif cwriteln('min = ', min)end?. Здесь же – ответы на него, и похожие вопросы в категории Информатика, которые можно найти с помощью простой в использовании поисковой системы. Уровень сложности вопроса соответствует уровню подготовки учащихся 10 - 11 классов. В комментариях, оставленных ниже, ознакомьтесь с вариантами ответов посетителей страницы. С ними можно обсудить тему вопроса в режиме on-line. Если ни один из предложенных ответов не устраивает, сформулируйте новый вопрос в поисковой строке, расположенной вверху, и нажмите кнопку.
A : min = 1 ;
Б : min = 5
В : min = 2
var a, b, c, min : real ;
begin
writeln('Введите три числа') ;
readln(a, b, c) ;
min : = a ;
if b.