Все категории

3 года назад

Дано 2х значное число определить является ли сумма цифр четной

Знания

Информатика

1 ответ:

ДмитрийПе [7]3 года назад

0 0

Var A:integer;
Begin
WriteLn('Введи двузначное число');
Read(A);
if (A mod 10 + A div 10) mod 2 = 0 then Write('Сумма цифр чётная')
else Write('Сумма цифр НЕчётная')
End.

Читайте также

Какие функциональные возможности имеют архиваторы?

marinna59 [61]

Выбирая архиватор, необходимо руководствоваться его универсальностью и надежностью, разумеется не забывая при этом о главных функциях -качестве и скорости сжатия. Однако необходимо отметить, что существует еще целый ряд параметров, определяющих удобство пользования архиваторами. Перечислим некоторые из них:

Поддержка различных форматов

В то время как большинство программ поддерживают один или два формата, некоторые из них, такие, например, как программа WinAce, поддерживают много форматов и, в частности, осуществляют компрессию в форматах ACE, ZIP, LHA, MS - CAB, JAVA RAR и декомпрессию в форматах ACE, ZIP, LHA, MS - CAB, RAR, ARC, ARJ, GZip, TAR, ZOO, JAR.

Умение создавать solid - архивы

Создание solid - архивов - это архивирование, при котором увеличение сжатия возрастает при наличии большого числа одновременно обрабатываемых коротких файлов.

Возможность создавать многотомные архивы

Многотонные архивы необходимы, когда файлы переносятся с компьютера на компьютер с помощью дискет и когда архив не помещается на одной дискете.

Возможность работы в качестве менеджера архивов

Различные программы в большей или меньшей степени способны вести учет архивам на диске. Некоторые архиваторы, например WINZIP, позволяет быстро добраться к любому архивному файлу, где бы он не находился на диске.

Возможность парольной защиты

Архивирование - это разновидность кодирования, и если раскодирование доступно по паролю, то это, естественно может использоваться как средство ограничения доступа к конфиденциальной информации.

Удобство в работе

Не последним актором является удобство в работе - наличие продуманного меню, поддержка мыши, оптимальный набор опций, наличие командной строки и т.д.

Создание самораспаковывающихся архивов

Некоторые программы позволяют создавать архивы с расширением *.exe. В этом случае нужно просто запустить на выполнение файл, и архив автоматически откроется, даже если у вас под рукой нет нужного архиватора.

Автоматическое удаление файлов после архивации

Установив эту опцию, вам не придется удалять исходный текст вручную после архивации. За вас это сделает программа.

Помещение в архив авторских комментариев

0 0

3 года назад

Помогите пожалуйста,сор по информатике 3класс

Влад134 [188]

3 задание ответы:1,3,4,5
4 задание карандаш и граффити

0 0

4 года назад

Петиной успеваемости за год (по четвертям) для следующих предметов: физика,химия, алгебра, геометрия.Петины оценки:физика – 5 4

kate81995 [171]

Физика-5+4+4+5=18:4=4,5 Химия-3+4+3+4=14:4=3,5 Алгебра-4+4+3+4=15:4=3,75 Геометрия-4+3+3+3=13:4=3,25 Если надо округлять: Физика:5 Химия:4 Алгебра:4 Геометрия:3

0 0

3 года назад

Прочитать ещё 2 ответа

Очень срочно помогите написать программу! вот задача: Заполнить массив из 12 элементов случайными числами в интервале [-12..12]

AnnaZabs

Var
a: array[1..12] of integer;
i: integer;
begin
randomize;
for i:=1 to 12 do
a[i]:=random(12+12+1)-12; //Заполнение массива
writeln('Исходный массив: ');
for i:=1 to 12 do
 write(' ',a[i],' '); //Вывод исходного массива
writeln(); //Для перехода на следующую строку
writeln('Результат: ');
for i:=4 downto 1 do
 write(' ',a[i],' ');
for i:=8 downto 5 do
 write(' ',a[i],' ');
for i:=12 downto 9 do
 write(' ',a[i],' '); //Обратный цикли для каждой трети
end.

0 0

4 года назад

Паскаль. Написать программу для вычислений значений переменной Y по заданной формуле.

Надежда50

===== PascalABC.NET =====

begin

var x := ReadReal('x =');

var y := x > 3 ? Sqr(Sin(x)) :

(x < 3) and (x <> -8) ? Cos(x) : x * x / 2;

Println(x, y)

end.

На приложенном скрине программа изменена чтобы получить решение для всех трех значений х

0 0

3 года назад