с этим заданием 1 Составьте программу закрашивания буквы "П",размерами три клетки по вертикали и две по горизонтали .Начальное положение Робота-где -то в центре поля.
А) var s:string; mas:array ['a'..'z'] of longint;{индексы элементов соответствуют латинице} c:char; i:longint; begin read(s); for c:='a' to 'z' do{заполнение нулями элементов массива, для запоминания количества элементов в латинице} mas[c]:=0; for i:=1 to ord(s[0]) do{пробегаем по всей строке ord(s[0]) это количесвто элементов в строке (только паскаль)} mas[s[i]]:=mas[s[i]]+1; for c:='a' to 'z' do{пробегаем по массиву значений и выводим только неповторяющиеся} if(mas[c]=1) then writeln(c); end.
Пол =”д” И Рост > 178 И Год рождения > 2002.
if(
Пол == ”д” &&
Рост > 178 &&
Год рождения > 2002.
)
Пол =”д” ИЛИ Рост > 178 ИЛИ Год рождения < 2000.
if(
Пол == ”д” ||
Рост > 178 ||
Год рождения < 2000.
)
Пол =”м” ИЛИ Рост > 178 И Год рождения < 2000.
if(
Пол == ”м” &&
Рост > 178 &&
Год рождения < 2000.
)
Пол =”д” И Рост > 178 И Год рождения < 2000.
if(
Пол == ”д” &&
Рост > 178 &&
Год рождения < 2000.
)
var s:string; mas:array ['a'..'z'] of longint;{индексы элементов соответствуют латинице} c:char; i:longint; begin read(s); for c:='a' to 'z' do{заполнение нулями элементов массива, для запоминания количества элементов в латинице} mas[c]:=0; for i:=1 to ord(s[0]) do{пробегаем по всей строке ord(s[0]) это количесвто элементов в строке (только паскаль)} mas[s[i]]:=mas[s[i]]+1; for c:='a' to 'z' do{пробегаем по массиву значений и выводим только неповторяющиеся} if(mas[c]=1) then writeln(c); end.