Назад на содержание | Ветвления в алгоритмах в Pascal |
|
Примеры:Задача 1. Определить, какое из двух чисел больше.write('Введите два числа: '); readln(B,D); if D<B then write('первое число больше'); if D>B then write('второе число больше'); if D=B then write('числа равны'); Задача 2. Является ли целое число однозначным. write('Введите целое число: '); readln(E); if abs(E)<=9 then write(число однозначное) else write(число неоднозначное); Задача 3. Делителем каких из трёх любых целых чисел является число 7. write('Введите целые числа A,B,C : '); readln(A,B,C); if (A mod 7)=0 then writeln('7 делитель ', A) else writeln('7 не делитель ', A); if (B mod 7)=0 then writeln('7 делитель ', B) else writeln('7 не делитель ', B); if (C mod 7)=0 then writeln('7 делитель ', C) else writeln('7 не делитель ', C); |