var
A, B, C, i: Integer;
begin
Write ('Введите значение A: ');
ReadLn (A);
Write ('Введите значение B: ');
ReadLn (B);
Write ('Введите значение C: ');
ReadLn (C);
i := 0;
if A mod 2 = 0 then
Inc (i);
if B mod 2 = 0 then
Inc (i);
if C mod 2 = 0 then
Inc (i);
Writeln ('Количество четных чисел = ' + IntToStr (i));
end;
1) 2 (для программиста)
2) 2 (антивирусные программы)
1-когда щелкнуть по флажку
2-очистить
3-идти в 0 0
4-опустить перо
5-повторять 4 раза
------------------------------
идти 100 шагов
повернуть на 90 градусов
------------------------
6-поднять перо
Потому что у тебя на ПЭВМ может быть множество файлов с одинаковым именем. И как компьютеру понять, какое тебе нужно? Вот здесь и играют свою роль полные имена. Полное имя позволяет различить файл вася.txt, лежащий в папке АБВГД диска E: и файл вася.txt в корне диска C: . Потому что у одного полное имя E/АБВГД/вася.txt, а у другого C/вася.txt
Спички делают из дубовых брёвен