Var t:integer;var a,b,s:real;beginprintln('Введите количество тетрадей и обложек');readln(t);println('Введите цену тетрадей');readln(a);println('Введите цену обложек');readln(b);
s:=t*a+t*b;print(s);end.
Решение во вложенном файле
11010000 10100111 11010000 10010101 11010000 10100000 11010000 10011101
11010000 10010101 11010000 10100110 11010000 10011010 11010000 10010000
11010000 10101111
Четное число, это когда остатка нет
используют функцию mod
пример использования
var a:integer;
begin
readln(a);
if a mod 2 = 0
then write('Четное')
else write('Нечетное');
end.
Компьютерный вирус это специально написанная не большая по размерам программа, которая может приписывать себя к другим программам то есть
заражать их, а также выполнять нежелательные действия на компьютере.
программа внутри которой находится вирус называется зараженной. когда такая программа находит работу то сначала управления получает вирус.
вирус находит и заражает другие программы, а также выполняет вредные действия. например: портит файлы или таблицу размещения файлов на диске а также засоряет оперативную память.