это первый вариант (но им лучше не пользуйся , ибо препод может придраться )
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. -конец алгоритма
надеюсь, что понятно объяснил.
Поделитесь своими знаниями, ответьте на вопрос:
Рассматривая объект ''телевизор'' как систему, выберите для нее из предложенного подходящие входы и выходы: -свет; -звук; -электромагнитные волны; -электроэнергия; -мускульная сила человека; -изображение; -цвет; -пыль; -грязь; -тепло; -холод; -регулятор плоскости; -кнопка включения/выключения; -стоимость,