Сначала выпишем все наборы значений, которые могут принимать высказывания (A и B). После по порядку приоритета выполняем действия. Т.к. присутствуют скобки, начинаем с них. Первым приоритетом обладает отрицание. Выполняем отрицание значений, т.е. меняем на противоположные. Затем идет конъюнкция. Она принимает значение "1" лишь в тех случаях, когда все высказывания истинны, т.е. имеют значение "1". Последнее действие - дизъюнкция. Она принимает значение "1" в тех случаях, когда истинно хотя бы одно из высказываний.
в растровом изображении хранится информация о каждом пиксиле (точки, из которых складывается изображение). Информация включает в себя кординаты пикселей и их цвет.
Поэтому при работе с растровыми изображениями можно сделать плавные и красивые переходы цветов, всякие цветовые эффекты и так далее...
векторные же изображения - по сути информация о форме и размеров объектов, причем геометрических.
характерно то, что векторные объекты можно увеличивать без потери качества. растровые - нет.
Program c;
var a, b: integer;
begin
writeln('Введите первое число');
readln(a);
writeln('Введите второе число');
readln(b);
if (a=b) then writeln('Числа равны!')
else
writeln('Числа не равны!');
end.
405
По условию, буква А встречается в слове ровно 1 раз. Вася составляет 5-буквенные слова, следовательно буква А может стоять на одном из 5 мест:
А****, *А***, **А**, ***А*, ****А.
Таким образом, на все остальные буквы (Б, В и Г) приходится 4 свободных места.
Число возможных 4-буквенных слов, в которых есть только 3 буквы Б, В, Г, равно <span>34=81</span>.
Умножаем полученные 81 вариантов на 5 возможных вариантов с буквой А и получаем правильный ответ.
<span>81×5=405</span>
Program 1123;
type data = record g: 0..3000; mes: 1..12; day: 1..31; end;
var d1,d2:data;begin writeln('Введите дату через пробел(число, месяц, год)');readln(d1.day,d1.mes,d1.g);
d2:=d1;d2.day:=d1.day+1;with d2 do case mes of 1,3,5,7,8,10: begin if day=32 then begin mes:=mes+1; day:=1; end; end;
4,6,9,11: begin if day=31 then begin mes:=mes+1; day:=1; end; end;2: begin if g mod 4=0 then begin if day=30 then begin mes:=mes+1; day:=1; end; end else begin if day=29 then begin mes:=mes+1; day:=1; end; end;
end;
12: begin if day=32 then begin g:=g+1; mes:=1; day:=1; end; end;end;writeln('Следующий день ',d2.day,'.',d2.mes,'.',d2.g);end.
