37

Записать решение задач в Pascal Abc:…

nullname 19 февраля 2023

Записать решение задач в Pascal Abc: 1. Определить есть ли в составе трехзначного числа одинаковые цифры.2. Вводятся два числа, определить одного они знака или нет.3. Определить принадлежит ли х отрезку от 1 до 5. Границы входят в интеграл.4. Определить является ли автобусный билет счастливым.5. Является ли год с порядковым номером х високосным или нет.

категория: информатика

59

Задача 1. var a,b,c,x: integer; begin readln (x); a: =x mod 10; x: =x div 10; b: =x mod 10; x: =x div 10; c: =x; if (a=b) or (a=c) or (b=c) then writeln ('Есть') else writeln ('Нет'); end. Задача 2.var a,b: integer; begin readln (a,b); If (a>0) and (b>0) or (a <= 0) and (b <= 0) then writeln ('да') else writeln ('нет'); end. Задача 3.var x: real; begin readln (x); if (x=<5) and (x>=1) then writeln ('да') else writeln ('нет'); end. Задача 4. Справка: Счастливым считается полученный в общественном транспорте билет, в шестизначном номере которого сумма первых трех цифр совпадает с суммой трех последних.var x: integer; begin readln (x); for i: =1 to 3 do begin d: =x mod 10; x: =x div 10; s1: =s1+d end; for i: =1 to 3 do begin d: =x mod 10; x: =x div 10; s2: =s2+d end; if s1=s2 then writeln ('да') else writeln ('нет') end. Задача 5. Справка: год является високосным в двух случаях: либо он кратен 4, но при этом не кратен 100, либо кратен 400. var x: integer; begin readln (x); If (x mod 4=0) and (x mod 100<>0) or (x mod 400=0) then writeln ('да') else writeln ('нет') end.

пользователи выбрали этот ответ лучшим

Знаете другой ответ?
Другие вопросы по информатике

ПОПУЛЯРНОЕ
acid_creker, 19 февраля 2023
Сколько кбайт в 524288 бит?
Есть интересный вопрос? Задайте его нашему сообществу, у нас наверняка найдется ответ!
Делитесь опытом и знаниями, зарабатывайте награды и репутацию, заводите новых интересных друзей!
Задавайте интересные вопросы, давайте качественные ответы и зарабатывайте деньги. Подробнее...