Program Domaska; Var a, b, c: integer; Begin Write ('Введите два числа:'); Readln (a); Readln (b); c:=50; If a>c then write ('YES') else If b>c then write ('YES') else write ('NO'); End.
@@корвкор Вот так? Program Domaska; Var a, b: integer; Begin Writeln ('Введите два числа:'); Readln (a); Readln (b); If a or b > 50 then write ('YES') else write ('NO'); End.
Извините я не проверяю дз. У меня есть курс с проверкой дз и другими задачами, там автоматическая проверка на тестах происходит. Если интересно ссылка в описании
program qq; var a,b,M:integer ;begin writeln('введите два двухзначных числа') ;read(a,b) ;if M>a then ;writeln('YES') ;M:=a ;if M>b then ;writeln('NO') ;M:=b end. видео топ как всегда хорошо обьяснили помогите с домашкой
program DZ; var a,b:integer; begin write ('Введите два числа: '); read (a,b); if a > 50 then if b > 50 then write ('Yes'); if a < 50 then if b < 50 then write ('No'); if a < 50 then if b > 50 then write ('Yes'); if a > 50 then if b < 50 then write ('Yes');
Я также делала, но у меня не сработало, проверяла через онлайн версию. Подскажи, пожалуйста, если ты проверял через стандартный паскаль, то выполнилась ли эта программа.
Решение без OR, поскольку про него еще не рассказывали program Task_19_HW; var a, b: integer; begin writeln('Введите два числа: '); read(a, b); if a>50 then writeln('YES') else if b>50 then writeln('YES') else writeln('NO'); end.
@@prostieresheniya я не правильно понял задание и сделал так , что если хотя бы одно меньше 50 выдавало NO, но и решил я по другому) program no_yes; var a, b:Integer; begin writeln('Введите два числа:'); read(a, b); if a > 50 then if b > 50 then write('YES'); if a < 50 then if b < 50 then write('NO'); if a > 50 then if b < 50 then write('NO'); if a < 50 then if b > 50 then write('NO');
Если вы еще не забросили канал, то можете помочь мне? Я пишу числа 2,3 но выводит Yes program ktostarshe; var a,b,M:integer; begin M:=50; read(a,b); if (a>M) or (b
Спасибо за отзыв) прямые эфире не планирую. Но планирую сегодня завтра начать добавлять домашку на степик, где можно будет не просто смотреть видео, но и решать задачи. Ссылка будет в описании к роликам)
Здравствуйте! Прошу прощения, подскажите, пожалуйста, какие ошибки в домашнем задании: program yesorno; var a,b,с:integer; begin read(a,b,c); if a>c or b>c then if a>c or b>c then write('YES'); if a
Скорее всего вы в каком то месте переменную «с» написали на русском языке) это не мудрено, так как они находятся на одной клавише) измените все переменные «с» на английские)
program qwerty123; var a, b: integer; begin read(a,b); if (a>50) or (b>50) then writeln('YES') else if (a=50) and (b=50) then writeln('ну,они же одинаковыe!') else if (a
Program Domaska;
Var a, b, c: integer;
Begin
Write ('Введите два числа:');
Readln (a);
Readln (b);
c:=50;
If a>c then write ('YES')
else
If b>c then write ('YES')
else write ('NO');
End.
Можно было решить через две переменные
@@корвкор Вот так?
Program Domaska;
Var a, b: integer;
Begin
Writeln ('Введите два числа:');
Readln (a);
Readln (b);
If a or b > 50 then write ('YES')
else write ('NO');
End.
спасибо за урок
Спасибо большое за отзыв ☺ Смотрите с VPN чтобы поддержать канал 🙏
Спасибо вам помогли со школьной темой операторы ветвление, я теперь понял все
Спасибо за отзыв) Приходите на канал ещё)
Var a, b, c:integer;
Begin
C:=50;
Writeln ('Введите два числа ');
Readln (a,b);
If (a>c) or (b>c) then write ('yes')
Else
If (a
Должно работать, но я бы немного доработал) упростил) второй if тут можно вообще убрать, ведь на ветку else пойдут только те которые не подходят
var a, b: integer;
begin
writeln('Vvedite dva 4isla ');
read(a, b);
if a or b > 50 then write('Yes')
else
write('No');
end.
Спасибо большое я посмотрела несколько ваших роликов надеюсь я напишу Кантрольную работу по паскслю 🤗
Спасибо за отзыв) Желаю удачи на контрольной)
Var a,b,S:integer;
Begin
Writeln ('Введите 2 числа: ');
Read (a, b);
S:=50;
If a or b>S then
Writeln ('Yes');
If a or b
Или можно заменить 8 строчку просто else
дз:
program wrdfa;
var a,b:integer;
begin
readln(a);
read(b);
if a>50 then
if b
Извините я не проверяю дз. У меня есть курс с проверкой дз и другими задачами, там автоматическая проверка на тестах происходит. Если интересно ссылка в описании
Не верно
program qq;
var a,b,M:integer
;begin
writeln('введите два двухзначных числа')
;read(a,b)
;if M>a then ;writeln('YES')
;M:=a
;if M>b then ;writeln('NO')
;M:=b
end.
видео топ как всегда хорошо обьяснили помогите с домашкой
У тебя M в этом случае равен 0, так как ты не задал этой переменной число.
@@redvanzaitullaev3958resd(a,b);
program DZ;
var a,b:integer;
begin
write ('Введите два числа: ');
read (a,b);
if a > 50 then
if b > 50 then
write ('Yes');
if a < 50 then
if b < 50 then
write ('No');
if a < 50 then
if b > 50 then
write ('Yes');
if a > 50 then
if b < 50 then
write ('Yes');
Я также делала, но у меня не сработало, проверяла через онлайн версию. Подскажи, пожалуйста, если ты проверял через стандартный паскаль, то выполнилась ли эта программа.
begin
var a,b:integer;
writeln('Введите два числа: ');
read(a,b);
if a>b then writeln('Yes');
if b>a then writeln('No');
end.
Var a,b:integer;
Begin
Read(a,b);
If a
Извините в комментариях код не проверяю, есть за символическую плату курс мой с большей домашкой и проверкой в описании к ролику
uses crt;
var n,m:longint;s:string;
begin
read(n,m);
if(n>50)or(m>50)then write('yes')else write('no');
end.
var a,b: integer;
begin
read (a,b);
if a>50 then write ('yes')
else
if b>50 then write ('yes');
if a
так проще
var a, b: integer;
begin
writeln('Введите a и b');
read(a,b);
if (a>50) or (b>50)
then writeln('YES')
else writeln('NO');
end.
Решение без OR, поскольку про него еще не рассказывали
program Task_19_HW;
var a, b: integer;
begin
writeln('Введите два числа: ');
read(a, b);
if a>50 then
writeln('YES')
else
if b>50 then
writeln('YES')
else
writeln('NO');
end.
Да, все верно)
@@prostieresheniya я не правильно понял задание и сделал так , что если хотя бы одно меньше 50 выдавало NO, но и решил я по другому)
program no_yes;
var
a, b:Integer;
begin
writeln('Введите два числа:');
read(a, b);
if a > 50 then
if b > 50 then
write('YES');
if a < 50 then
if b < 50 then
write('NO');
if a > 50 then
if b < 50 then
write('NO');
if a < 50 then
if b > 50 then
write('NO');
end.
@@visea96 извини брат но твоя програмка не работает
круто👍, а я ради интереса написал без " else "
От души , помог разобраться
program sadanie;
var a,b: integer;
begin
write('Введите два числа: ');
read(a);
read(b);
if (a>50) or (b>50) then
write('YES')
else write('NO')
end.
до этого урока "or" не упоминался, я так понял что нужно справиться с заданием без "or"
дз:
var a, b: integer;
begin
writeln('Введите a и b');
read(a,b);
if (a>50) or (b>50)
then writeln('YES')
else writeln('NO');
end.
if a or b > 50 then write('YES');
if a or b < 50 then write('NO');
я кста люблю расписывать
uses crt;
var n,m:longint;s:string;
begin
read(n,m);
if(n>50)or(m>50)then write('yes')else write('no');
end.
А как использовать a>b>v? Ведь, это же ускорить процесс?
можно ли сделать задача"С", часть первая , через максимум?
Кстати, после " begin" - ( enter ) - " end" пишется автоматически
Если вы еще не забросили канал, то можете помочь мне?
Я пишу числа 2,3 но выводит Yes
program ktostarshe;
var a,b,M:integer;
begin
M:=50;
read(a,b);
if (a>M) or (b
Вы используете or (ИЛИ) и у вас всё условие истинно если хотябы одно условие истино в данном случае (bM) then write(‘yes’) else write(‘no’)
@@prostieresheniya Спасибо большое
Хорошо объясняете
Спасибо!) Очень приятно читать такие комментарии)
Я понял спасибо тебе❤
эх дз впервые делаю одним глазком подглядев
Ну этоьже всего лишь одним глазком))
спасибо, а когда прямые эфиры будут?
Спасибо за отзыв) прямые эфире не планирую. Но планирую сегодня завтра начать добавлять домашку на степик, где можно будет не просто смотреть видео, но и решать задачи. Ссылка будет в описании к роликам)
Здравствуйте! Прошу прощения, подскажите, пожалуйста, какие ошибки в домашнем задании:
program yesorno;
var a,b,с:integer;
begin
read(a,b,c);
if a>c or b>c then
if a>c or b>c then write('YES');
if a
Скорее всего вы в каком то месте переменную «с» написали на русском языке) это не мудрено, так как они находятся на одной клавише) измените все переменные «с» на английские)
@@prostieresheniya спасибо больлшое!
@@prostieresheniya а теперь пишет, что операция > не применима к типам boolean и integer :(
Возьмите условия в скобочки
@@prostieresheniya все, спасибо огромное!!
Топ
program qwerty123;
var a, b: integer;
begin
read(a,b);
if (a>50) or (b>50) then
writeln('YES')
else
if (a=50) and (b=50) then
writeln('ну,они же одинаковыe!')
else
if (a
когда учишься в 5 классе но захвачен програмированием
Это очень круто!!
Я тоже, но только в 6:)
Сигма😗
Много (if) не к добру.
If (A>B) or (A>V) then write(…)
If (B>V) or (B>A) then write(…)
If (V>A) or (V>B) then write(…)