Var
i, s: integer;
begin
s := 0;
for i := 10 to 99 do
if i mod 2 = 0 then
s := s + i;
writeln(s);
end.
Выбираю строчка где F=1 и записываю через переменные сумму произведений соответствующих строк
если 0-пишу не х, если 1-то пишу х
c у так же
тогда не х * не у + не х * у = (не у + у) * не х = 1 * не х = не х
Компьютер состоит из связанных между собой устройств.в компьютере существуют файловые ситемы.
Ответ:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
var s:string;
n,i,k:byte;
begin
readln(s);
n:=length(s);
k:=0;
for i:=1 to n do
if upcase(s[i])='A' then
begin
inc(k);
if s[i]='a' then s[i]:='b'
else s[i]:='B';
end;
writeln(s);
write(k)
end.
Объяснение: