var
a:real;
begin
readln (a);
a:=trunc (a); {trunc - это такая функция (уже готовая в самой программе), которая находит целую часть числа}
writeln ('Целая часть числа а равна ',a)
end.
если я правильно понял смысл
Case - разветвление, выбор из нескольких элементов или даже промежутков
And - логическая операция аналогичная коньюнкции
Or - логическая операция аналогичная дизьюнкции
ClrScr - clear screen, т.е. очистить экран
не понимаю что значит "четность тела". скорее всего вы имели ввиду четность числа. вот прога:
var a: integer;
begin
read(a);
if a mod 2=0 then write('четно')
else write('не четно');
end.
<span>Программа восстанавливает данные жестких и внешних дисков, а также любых других устройств под управлением файловых систем FAT, NTFS. Утилита объединяет комплекс алгоритмов, восстанавливающих имя, атрибуты, содержимое файла и оригинальную структуру каталогов диска.</span><span>Кроме существующих, утилита находит все ранее созданные разделы диска и выводит их пользователю для дальнейшего анализа и поиска удаленной информации. Поддерживая FAT16, FAT32 и NTFS, используемые в Windows, программа исправляет любые ошибки логической структуры жесткого диска и возвращает его содержимое быстрее, чем вы досчитаете до трех.</span>