с задачей по информатике.Нужно закрасить клетки внизу в шахматном порядке, два ряда, а также верхний левый и правый угол.Для проверки будут менять размеры поля.
Const n=8; var x : array[1..n] of real; i : integer; min : real; begin Randomize; writeln('Исходный массив:'); for i:=1 to n do begin x[i]:=20*random-10; write(x[i]:6:2,' '); end; writeln; min:=x[1]; for i:=2 to n do if x[i] < min then min:=x[i]; writeln('min=',min:6:2); for i:=1 to n do if x[i]<0 then x[i]:=min; writeln('Измененный массив:'); for i:=1 to n do write(x[i]:6:2,' '); end.
Var used: Set of Char; s1, s2: string; i: integer; done: boolean; c: char;
function IsLetter(c: char): boolean; begin IsLetter := ((c >= 'a') and (c <= 'z')) or ((c >= 'A') and (c <= 'Z')); end;
function UpperCase(c: char): char; begin if (c >= 'a') and (c <= 'z') then UpperCase := Chr(Ord(c) - Ord('a') + Ord('A')) else UpperCase := c; end;
begin used := [];
readln(s1); readln(s2);
for i := 1 to length(s1) do if (IsLetter(s1[i])) then include(used, UpperCase(s1[i]));
for i := 1 to length(s2) do if (IsLetter(s2[i])) then include(used, UpperCase(s2[i]));
done := False; for c := 'A' to 'Z' do if not (c in used) then begin done := True; write(c); end;
if not done then write(0);
writeln; end.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
с задачей по информатике.Нужно закрасить клетки внизу в шахматном порядке, два ряда, а также верхний левый и правый угол.Для проверки будут менять размеры поля.
если есть рисунок легче будет
Объяснение: