Информатика | 5 - 9 классы
Возможно ли при каких - нибудь значениях x, y, z от нуля до десяти получить.
Предложения : a) Рыбка плавает в пруду.
B) Птичка летает в пруду.
C) Птичка под облаками.
D) Рыбка летает под облаками.
E) Птичка плавает под облаками.
F) Рыбка летает .
PROGRAM Ifurok ; var x, y, z : byte ; BEGIN readln( x, y, z ) ; if (x> ; 5) or (x< ; 6) then write( ' Рыбка ' ) else write( ' Птичка ' ) ; if y> ; 7 then if y mod 2 = 3 then write( ' летает ' ) else write( ' плавает ' ) ; if z mod 3 = 0 then if (x div 2 > ; 4) and (x mod 2< ; > ; 1) then write( ' в пруду ' ) else write( ' под облаками ' ) ; writeln( '.
' ) END.
Привет ; ) Помогите пжл с задачей?
Привет ; ) Помогите пжл с задачей.
Надо сделать такую же, только на тему "while" грубо говоря заменить "for' на "while".
Var a, n, k : integer ;
begin
write('vvedite chislo ') ;
readln(n) ;
if (n = 1) or (n = 0) then write( n, ' ne sostavnoe i ne ') ;
for a : = 2 to n div 2 do
if n mod a = 0 then k : = k + 1 ;
if k = 0 then write('prostoe')
else writeln('sostovnoe') ;
end.
Задача(вводится число с клавы, узнать простое или состовное)
Буду благодарна.
(55 баллов) Информатики на вас надежда?
(55 баллов) Информатики на вас надежда!
Условие : Установить программным путем произошла ли ошибка в процессе выполнения сложения над целыми числами : Программа(Паскаль) Var a, b, rez : byte / / или shortint Begin readln(a) ; readln(b) ; rez ; = a + b ; if.
Then write ('yes') else write ('no') ; end.
Чему будет равен результат выполнения фрагмента программы?
Чему будет равен результат выполнения фрагмента программы?
A : = 6 ; if a mod 2 = 0 then write (a + 2) else write (a - 2) ; 4 8 12 6.
Program yura ; var x : integer ; begin writeln ('Напишите x') ; readln (x) ; if x mod 2 = 0 then writeln(x * x + (sqrt2)) else writeln(x * x * x + x) end?
Program yura ; var x : integer ; begin writeln ('Напишите x') ; readln (x) ; if x mod 2 = 0 then writeln(x * x + (sqrt2)) else writeln(x * x * x + x) end.
В чём ошибка?
Даны 3 стороны треугольника АВС - напечатать какой имеет вид треугольник?
Даны 3 стороны треугольника АВС - напечатать какой имеет вид треугольник.
Проверьте где у меня ошибки : var
a, b, c : integer ;
begin
write('введите a = ') ; readln(a)
write('введите b = ') ; readln(b)
write('введите c = ') ; readln(c)
if(a = b)and(b = c)then
writeln('равносторонний')
else
if (a = b)or(b = c)or(a = c)then
writeln('равнобедренный')
else
writeln('разносторонний')
end.
Program TELESHOP ; var x : real ; begin writeln ('?
Program TELESHOP ; var x : real ; begin writeln ('.
') ; write ('.
') ; write ('.
') ; readln (x) ; if x< ; = 1 then begin if x = 1 then begin writeln ('.
') ; writeln ('.
') ; end else begin writeln ('.
') ; end ; * else begin writeln ('.
') ; end end.
* - место ошибки.
"встречено 'else', а ожидалось оператор" Вопрос : в чем ошибка?
Такая программа, хотелось бы чтобы при вводе да (при считывании b) запускался контейнер, но мне выдает что да - неизвестное имя?
Такая программа, хотелось бы чтобы при вводе да (при считывании b) запускался контейнер, но мне выдает что да - неизвестное имя.
Программа в паскале.
Var a, b, c, d : string ; e, f, g, h : integer ; begin write ('Здраствуй, как тебя зовут?
') ; read (a) ; write ('Привет, ') ; write (a) ; write ('!
') ; write ('Сколько тебе лет?
') ; read (e) ; if e> ; 30 then write ('Мое уважение.
') else write ('Малявка!
') ; write ('Давай сыграем в игру?
Я загадываю число, ты пытаешься отгадать?
Числа от одного до 10!
') ; read (b) ; if b = да then begin randomize ; f : = random (10) ; read (g) ; if g = f then write ('Ты угадал(а)!
') else ('Я победил : З') ; end end.
Помогите пожалуйста, cрочно?
Помогите пожалуйста, cрочно!
Составить блок - схему.
Program primer6 ;
uses crt ;
x : integer ;
begin
clrscr ;
readln(x) ;
if x mod 2 = 0 then writeln ('да')
else writeln ('нет')
end.
Такая программа, хотелось бы чтобы при вводе да (при считывании b) запускался контейнер, но мне выдает что да - неизвестное имя?
Такая программа, хотелось бы чтобы при вводе да (при считывании b) запускался контейнер, но мне выдает что да - неизвестное имя.
Программа в паскале.
Var a, b, c, d : string ; e, f, g, h : integer ; begin write ('Здраствуй, как тебя зовут?
') ; read (a) ; write ('Привет, ') ; write (a) ; write ('!
') ; write ('Сколько тебе лет?
') ; read (e) ; if e> ; 30 then write ('Мое уважение.
') else write ('Малявка!
') ; write ('Давай сыграем в игру?
Я загадываю число, ты пытаешься отгадать?
Числа от одного до 10!
') ; read (b) ; if b = да then begin randomize ; f : = random (10) ; read (g) ; if g = f then write ('Ты угадал(а)!
') else ('Я победил : З') ; end end.
Если поможет пролайкаю и оценю как лучший ответ.
Кому не трудно помогите перевести с паскаля на си плиз?
Кому не трудно помогите перевести с паскаля на си плиз.
Uses crt ;
var k : byte ;
begin
clrscr ;
repeat
write('Введите возраст от 1 до 99 k = ') ;
readln(k) ;
until k in [1.
99] ;
case k of
11.
14 : write('Мне ', k, ' лет') ;
else
case k mod 10 of
1 : write('Мне ', k, ' год') ;
2.
4 : write('Мне ', k, ' года') ;
else write('Мне ', k, ' лет') ;
end ;
end ;
readln
end.
Вопрос Возможно ли при каких - нибудь значениях x, y, z от нуля до десяти получить?, расположенный на этой странице сайта, относится к категории Информатика и соответствует программе для 5 - 9 классов. Если ответ не удовлетворяет в полной мере, найдите с помощью автоматического поиска похожие вопросы, из этой же категории, или сформулируйте вопрос по-своему. Для этого ключевые фразы введите в строку поиска, нажав на кнопку, расположенную вверху страницы. Воспользуйтесь также подсказками посетителей, оставившими комментарии под вопросом.
Из описания следует, что x, y, z - целые неотрицательные числа.
Слово "Рыбка" выводится всегда, поскольку х либо меньше 6, т.
Е. равно 0, 1, 2, 3, 4, 5, либо больше 5, т.
Е. равно 6, 7, 8, 9, 10.
Соответственно, слово "Птичка" не будет выведено никогда.
Если y> ; 7 (y = 8, 9, 10), то условие y mod 2 = 3 всегда ложно (остаток от деления на два не может быть равен трем) и поэтому выводится слово "плавает".
Если же y< ; = 7, то не выводится ничего.
При z, кратном 3 (z = 0, 3, 6, 9) проверяется истинность сложного высказывания (x div 2 > ; 4) and (x mod 2< ; > ; 1).
Оно истинно если при целочисленном делении х на два получается число большее четырех, т.
Е. при х = 10 и при этом х должен быть четным.
И тогда будет напечатано в "пруду".
Если же это высказывание ложно, печатается "под облаками".
И в конце выводится точка.
Итак, при значениях x, y, z не превышающих 10 :
a) Рыбка плавает в пруду.
- x = 10, y∈[8, 9, 10], z∈[0, 3, 6, 9] b) Птичка летает в пруду.
- никогда c) Птичка под облаками.
- никогда d) Рыбка летает под облаками.
- никогда e) Птичка плавает под облаками.
- никогда f) Рыбка летает.
- никогда.