это первый вариант (но им лучше не пользуйся , ибо препод может придраться )
var
a,b: integer;
c: boolean;
begin
readln (a);
b: =0;
begin
if (a div 10> 0) then b: =b+1;
if (a mod 5=0) then b: =b+1;
end;
c: =b=2;
writeln (c);
end.
вот второй вариант ( который не так сильна закручен )
var
a: integer;
c: boolean;
begin
readln (a);
c: = (a div 10> 0) and (a mod 5=0);
writeln (c);
end.
объясняю второй вар:
var - мы вводим переменные
a: integer; - это значит что число а- целое
c: boolean; - вводим переменную которая дает истинность высказывания
begin - начало алгоритма
readln (a); - компуктер запросит чтобы вы ввели переменную "a"
c: = (a div 10> 0) and (a mod 5=0) - c будет истинен при том случае если a div 10> 0 (при делении а на 10 целая часть будет больше 0) и a mod 5=0 (при делении a на 5 остаток будет 0)
writeln (с); - выводим с (true or false)
end. -конец алгоритма
надеюсь, что понятно объяснил.
Поделитесь своими знаниями, ответьте на вопрос:
1)задан числовой массив из 10 элементов [5; 150]отсортировать массив по убыванию. 2)в комп. вводятся результ.экзаменов для 20 абитуриентов. вывести на экран фамилии и результ. [10; 30].подсчитать их сред.ариф. 3)дан массив из 10 элементов.определить двухзначные числа кот. делятся на 4[10; 100]