Записать решение задач в Pascal Abc:
5-9 класс
|
1. Определить есть ли в составе трехзначного числа одинаковые цифры.
2. Вводятся два числа,определить одного они знака или нет.
3. Определить принадлежит ли х отрезку от 1 до 5. Границы входят в интеграл.
4. Определить является ли автобусный билет счастливым.
5. Является ли год с порядковым номером х високосным или нет.
Задача 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.
Справка:
Другие вопросы из категории
этой информации?
Читайте также
Составить программу,которая выводит на экран сумму нечетных чисел от 1 до 30 в Pascal ABC.
алгоритм для решения задачи: Найти действительные корни квадратного уравнения вида ax^2+bx+c=0.
2) дано четырёхзначное число. Что больше: произведение цифр числа или их утроенная сумма. pascal ABC
Даны два целых числа. Разделить каждое число на целое число d.
Найти произведение их остатков от деления.