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.
@Max-i1h
11 ай бұрын
спасибо за урок
@prostieresheniya
11 ай бұрын
Спасибо большое за отзыв ☺ Смотрите с VPN чтобы поддержать канал 🙏
@thetihonplay3570
2 жыл бұрын
Спасибо вам помогли со школьной темой операторы ветвление, я теперь понял все
@prostieresheniya
2 жыл бұрын
Спасибо за отзыв) Приходите на канал ещё)
@Сталкерочек
2 жыл бұрын
Var a, b, c:integer; Begin C:=50; Writeln ('Введите два числа '); Readln (a,b); If (a>c) or (b>c) then write ('yes') Else If (a
@prostieresheniya
2 жыл бұрын
Должно работать, но я бы немного доработал) упростил) второй if тут можно вообще убрать, ведь на ветку else пойдут только те которые не подходят
@PartizannN437
2 жыл бұрын
var a, b: integer; begin writeln('Vvedite dva 4isla '); read(a, b); if a or b > 50 then write('Yes') else write('No'); end.
@Killerrr34
7 ай бұрын
Спасибо большое я посмотрела несколько ваших роликов надеюсь я напишу Кантрольную работу по паскслю 🤗
@prostieresheniya
7 ай бұрын
Спасибо за отзыв) Желаю удачи на контрольной)
@maffyn490
7 ай бұрын
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. видео топ как всегда хорошо обьяснили помогите с домашкой
@redvanzaitullaev3958
6 ай бұрын
У тебя M в этом случае равен 0, так как ты не задал этой переменной число.
@morda5721
Ай бұрын
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');
@lps1174
Ай бұрын
Я также делала, но у меня не сработало, проверяла через онлайн версию. Подскажи, пожалуйста, если ты проверял через стандартный паскаль, то выполнилась ли эта программа.
@user-yx3mb6it9p
Жыл бұрын
дз: program wrdfa; var a,b:integer; begin readln(a); read(b); if a>50 then if b
@prostieresheniya
Жыл бұрын
Извините я не проверяю дз. У меня есть курс с проверкой дз и другими задачами, там автоматическая проверка на тестах происходит. Если интересно ссылка в описании
@IMdontwoman
7 ай бұрын
Не верно
@ДарьяКирсанова-р6ц
Ай бұрын
можно ли сделать задача"С", часть первая , через максимум?
@РоманСеченов
Жыл бұрын
Решение без 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
Жыл бұрын
Да, все верно)
@visea96
Жыл бұрын
@@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.
@Max-i1h
11 ай бұрын
@@visea96 извини брат но твоя програмка не работает
@Max-i1h
11 ай бұрын
круто👍, а я ради интереса написал без " else "
@Sarejkaa
7 ай бұрын
От души , помог разобраться
@GOODGUY_GOD
11 күн бұрын
А как использовать a>b>v? Ведь, это же ускорить процесс?
@GOODGUY_GOD
11 күн бұрын
Кстати, после " begin" - ( enter ) - " end" пишется автоматически
@yagshahayagshaha6259
Жыл бұрын
Var a,b:integer; Begin Read(a,b); If a
@prostieresheniya
Жыл бұрын
Извините в комментариях код не проверяю, есть за символическую плату курс мой с большей домашкой и проверкой в описании к ролику
@user-on5fx3kc6w
7 ай бұрын
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.
@thebro6362
2 жыл бұрын
var a,b: integer; begin read (a,b); if a>50 then write ('yes') else if b>50 then write ('yes'); if a
@desper1do
2 жыл бұрын
так проще var a, b: integer; begin writeln('Введите a и b'); read(a,b); if (a>50) or (b>50) then writeln('YES') else writeln('NO'); end.
@user-on5fx3kc6w
7 ай бұрын
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.
@Mohito_777
2 жыл бұрын
Хорошо объясняете
@prostieresheniya
2 жыл бұрын
Спасибо!) Очень приятно читать такие комментарии)
@desper1do
2 жыл бұрын
дз: var a, b: integer; begin writeln('Введите a и b'); read(a,b); if (a>50) or (b>50) then writeln('YES') else writeln('NO'); end.
@mroriginal7922
Жыл бұрын
if a or b > 50 then write('YES'); if a or b < 50 then write('NO'); я кста люблю расписывать
@helloiamellii
Жыл бұрын
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.
@Max-i1h
11 ай бұрын
до этого урока "or" не упоминался, я так понял что нужно справиться с заданием без "or"
@user-ml1pg9kb2o
2 жыл бұрын
Если вы еще не забросили канал, то можете помочь мне? Я пишу числа 2,3 но выводит Yes program ktostarshe; var a,b,M:integer; begin M:=50; read(a,b); if (a>M) or (b
@prostieresheniya
2 жыл бұрын
Вы используете or (ИЛИ) и у вас всё условие истинно если хотябы одно условие истино в данном случае (bM) then write(‘yes’) else write(‘no’)
@user-ml1pg9kb2o
2 жыл бұрын
@@prostieresheniya Спасибо большое
@thdnka
Жыл бұрын
Топ
@WKamura
Жыл бұрын
эх дз впервые делаю одним глазком подглядев
@prostieresheniya
Жыл бұрын
Ну этоьже всего лишь одним глазком))
@arlan_kaskyrov
2 жыл бұрын
спасибо, а когда прямые эфиры будут?
@prostieresheniya
2 жыл бұрын
Спасибо за отзыв) прямые эфире не планирую. Но планирую сегодня завтра начать добавлять домашку на степик, где можно будет не просто смотреть видео, но и решать задачи. Ссылка будет в описании к роликам)
@mihal3546
2 жыл бұрын
когда учишься в 5 классе но захвачен програмированием
@prostieresheniya
2 жыл бұрын
Это очень круто!!
@Gariune
7 ай бұрын
Я тоже, но только в 6:)
@IMdontwoman
7 ай бұрын
Я понял спасибо тебе❤
@toryprongs
2 жыл бұрын
Здравствуйте! Прошу прощения, подскажите, пожалуйста, какие ошибки в домашнем задании: 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
2 жыл бұрын
Скорее всего вы в каком то месте переменную «с» написали на русском языке) это не мудрено, так как они находятся на одной клавише) измените все переменные «с» на английские)
@toryprongs
2 жыл бұрын
@@prostieresheniya спасибо больлшое!
@toryprongs
2 жыл бұрын
@@prostieresheniya а теперь пишет, что операция > не применима к типам boolean и integer :(
@prostieresheniya
2 жыл бұрын
Возьмите условия в скобочки
@toryprongs
2 жыл бұрын
@@prostieresheniya все, спасибо огромное!!
@lisajennifer642
10 ай бұрын
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
@OSK-IBA
2 жыл бұрын
Много (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(…)
Пікірлер: 60